Zapisanie wszytskich paneli do pliku

Mam takie coś:

procedure TglownaForm.Button3Click(Sender: TObject);
var F:TextFile;
   I:Integer;
begin
 Try
  AssignFile(F,'h:\pliczor.txt');
  Rewrite(F);
  For I:=0 to GlownaForm.ComponentCount-1 do
  begin

   showmessage(GlownaForm.Components[I].name);
      WriteLn(F,GlownaForm.Components[I].Name);

   If(GlownaForm.Components[I] is TPanel) then
   begin
   WriteLn(F,GlownaForm.Components[I].Name);
   showmessage('panele: '+GlownaForm.Components[I].name);
   end;

  end;
 Finally
  CloseFile(F);
 End;

end;

Program powinien zapsiać wszytskie własciowsci name paneli do pliku i zapisuje do pliku wszytskie komponenty, ale nie wyodrębnia paneli</url>

ech... w petli daj:

If Components[I] is TPanel then
begin
[..]
end;

tez nie działa

SOA (Standardowa Odpowiedz Admina) ;-)

mnie tylko zatsanawia co za bzdura zostala tam napisana wyzej bez wzgledu na post ktory czytasz wlasnie w tej chwili (tak pisze do ciebie ty to wlasnie czytasz)....

procedure TForm1.FormCreate(Sender: TObject);
var I:Integer;
begin
For I:=0 to Form1.ComponentCount-1 do
        If (Form1.Components[i] is TPanel) then
                begin
                ListBox1.Items.Add(Form1.Components[i].Name)
                end;

end;

a dalej juz wiesz, co zrobic.

niestey tez nie działa

ale co nie działa?
porównaj z tym: http://4programmers.net/pastebin/12

przestan mowic nic nieznaczace "nie dziala".
co nie dziala? wywala blad, jaki, gdzie?
jak sie objawia to "nie dzialanie"...?
napisz cos wiecej czlowieku, napisz cos o swoim programie!