Zapisanie wszytskich paneli do pliku

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;

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

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;