Динамическое удаление созданного

[KaDima28]

При открытии окна, появляются 133 панели. Я хочу что-бы они красиво уходили. (типо там открытие рисунка т. д.)
Ну не важно, важно то как удалить созданное имея его имя. Вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var d,d1,d2,d3,d4,d5,d6:integer;
var b:TPanel;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;

begin
d:=50;
d1:=50;
d2:=50;
d3:=50;
d4:=50;
d5:=50;
d6:=50;
for i:=0 to 133 do begin
if d<>1000 then begin
d:=d+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.bevelouter:=bvNone;
    b.Color:=clWhite;
    b.Left:=d;
    b.Top:=8;
    b.Width:=50;
    b.Height:=50;
end
else if d1<>1000 then begin
d1:=d1+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.bevelouter:=bvNone;
    b.Color:=clWhite;
    b.Left:=d1;
    b.Top:=58;
    b.Width:=50;
    b.Height:=50;
end else if d2<>1000 then begin
d2:=d2+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.Caption:='';
    b.bevelouter:=bvNone;
    b.Color:=clWhite;
    b.Left:=d2;
    b.Top:=108;
    b.Width:=50;
    b.Height:=50;
end else if d3<>1000 then begin
d3:=d3+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.bevelouter:=bvNone;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.Color:=clWhite;
    b.Left:=d3;
    b.Top:=158;
    b.Width:=50;
    b.Height:=50;
end else if d4<>1000 then begin
d4:=d4+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.bevelouter:=bvNone;
    b.Color:=clWhite;
    b.Left:=d4;
    b.Top:=208;
    b.Width:=50;
    b.Height:=50;
end else if d5<>1000 then begin
d5:=d5+50;
 b:=TPanel.Create(Form1);
    b.Parent:=Form1;
    b.Name:='s'+IntToStr(i);
    b.Caption:='';
    b.bevelouter:=bvNone;
    b.Color:=clWhite;
    b.Left:=d5;
    b.Top:=258;
    b.Width:=50;
    b.Height:=50;
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
 for i:=0 to 1 do
   begin

    if i=0 then //удаление панельки (s1)

   end;
end;

end.

Я имею их имена (s1, s2...), но делфи не находит её.
P.S: Я чет, это, затупил
P.S.S: Всем спасибо кто поможет.

[KaDima28]

может просто менять визибл, но как найти саму панельку?

[Аватар]

У формы есть метод FindComponent. Им можно
Есть индексированное свойство Controls. И по нему можно

[KaDima28]

Спасибо. Видно просто когда компилировал, оно еще не знала эту переменную.