1:
2:

var
  smpanel:Tpanel;//global					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

if FindComponent('smpanel')<>nil 
  then smpanel.free;//Wenn der Pannel schon existiert, soll er freigegeben werden(also gelöscht) Habs auch mal mit destroy versucht, machta aber net
smpanel:=Tpanel.Create(form2); 
with smpanel do
  begin
    Height:=Form2.Height; 
    left:=Form2.Height;
    parent:=Form2;
    top:=Form2.Height;
    Height:=Form2.Height;
    Width:=Form2.Height;
    name:='smpanel';
    caption:='';
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var Form1:TForm;
    Panel1:TPanel;
{...}

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Panel1:=TPanel.Create(Form1);
Panel1.Parent:=Form1;
panel1.Top:=10;
panel1.left:=10;
panel1.Width:=100;
panel1.height:=100;
end;					

1:

if FindComponent('smpanel')<>nil then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm2.Button2Click(Sender: TObject);
begin
if FindComponent('smpanel') <> nil then showmessage('123');
if FindComponent('smpanel') <> nil
  then smpanel.free;
smpanel:=Tpanel.Create(form2);
with smpanel do
  begin
    parent:=Form2;
    Top:=1;
    left:=1;
    Height:=10;
    Width:=10;
    name:='smpanel';
    caption:='';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do begin
  with TPanel.Create(Form2) do begin
    parent:=Form2;
    Top:=1+i*10;
    left:=1+i*10;
    Height:=10;
    Width:=10;
    name:='smpanel'+IntToStr(i);
    caption:='';
  end;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do begin
  if FindComponent('smpanel'+IntToStr(i)) <> nil then
    (FindComponent('smpanel'+IntToStr(i)) as TPanel).free;
end;
end;					

1:
2:
3:

for x:=0 to 10 do
  for y:=0 to 10 do
    buttons[x][y].free;					

1:
2:
3:

  for x:=0 to 13 do
  for y:=0 to 8 do  
    buttonliste[x,y].free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
  for x:=0 to 10 do
  for y:=0 to 10 do begin
  Buttons[x][y]:=TButton.Create(Form1);
  with Buttons[x][y] do begin
  parent:=Form1;
  top:=y*10+100;
  left:=x*10+100;
  width:=10;
  height:=10;
  name:='b'+IntToStr(x)+intToStr(y);
  caption:='o';
  end;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer;
begin
  for x:=0 to 10 do
  for y:=0 to 10 do
  buttons[x][y].Free;
end;					

1:
2:

uses
  Contnrs;					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    MyButtonList: TObjectList;
    ...
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyButton: TButton;
  I: Integer;
begin

  // 10 TButton erstellen und mit TObjectList verwalten

  if not Assigned(MyButtonList) then
  begin
    MyButtonList := TObjectList.Create(True);
    for I := 0 to 9 do
    begin
      MyButton := TButton.Create(nil);
      MyButtonList.Add(MyButton);
      with MyButton do
      begin
        Parent := Self;
        SetBounds(I * 20, 0, 20, 20);
      end;
    end;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button2Click(Sender: TObject);
begin

  // Alle MyButton's und MyButtonList entfernen

  if Assigned(MyButtonList) then
    FreeAndNil(MyButtonList);

end;					

1:
2:
3:

  var  //global
  MyButtonList: TObjectList;
  Buttonliste : array of array of tbutton;					

1:
2:
3:
4:
5:
6:

   
  SetLength(buttonliste,0); //array zurücksetzen
  if Assigned(MyButtonList) then //wenn die Objekliste vorhanden ist löschen
    FreeAndNil(MyButtonList);
  if not Assigned(MyButtonList) then //das if eigentlich überflüßig, wollte nur sichergehen ^^
    MyButtonList := TObjectList.Create(True);					

1:
2:

  Buttonliste[x,y]:=TButton.Create(self);
  MyButtonList.Add(Buttonliste[x,y];					

1:
2:

  Buttonliste[laenge,high(buttonliste[laenge])]:=TButton.Create(self);//laenge ist die nummer der Reihe, in der der Button erstellt werden soll
  MyButtonList.Add(Buttonliste[laenge,high(buttonliste[laenge])]);