Auf Shapes mit Variablen zugreifen

[Niclas]

Hallo!
Ich würde gerne mittels Zählvariable auf einen bestimmten String zugreife.

Meine Variablen (global):

Delphi-Quellcode:

var
  Form1: TForm1;
  n:string;
  i,k,m,z:integer;
  Shape2,Shape:TShape;

Hier der Code von meinem ersten Button (Zum erstellen und zuteilen der Farben der Shapes):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  begin
  m:=0;
  for k:=1 to 5 do
  begin
  for i:=1 to 5 do
      begin
           m:=m+1;
           z:=random(2);
           Shape := TShape.Create(Form1);
                 With Shape do
                     begin
                     Parent := Form1;
                     Left :=(i*30);
                     Top :=(k*30);
                     Width:= 30;
                     Height:=30;
                     if z=1 then brush.color:=clblack;
                     Name := 'Shape' + inttostr(m);
                     end;
      end;
   end;

end;

Der zweite Button (zum löschen der Shapes)

Delphi-Quellcode:

for m:=1 to 25 do
      begin
          Shape2.name:='Shape' + inttostr(m);
          Shape2.Destroy;                   
      end;

      end;

Er compiliert es richtig und ich kann starten, jedoch wenn ich die Shapes erstellt habe und dann den 2. Button drücke, kommt eine Fehlermeldung und das Programm bricht ab. (FM im Anhang)

Könnt ihr mir sagen, warum da eine Fehlermeldung passiert?

LG Niclas