TShape zur Laufzeit erzeugen - Verständnisproblem

[axellang]

Hallo Leute,

könnte mir bitte jemand sagen warum dass nicht funktioniert:

Delphi-Quellcode:

procedure TForm1.Shape_2;
var
    dummy_2 : TShape;
begin
     dummy_2 := TShape.Create(Self);

   try
     dummy_2.Shape := stCircle;
     dummy_2.Parent := Panel1;
     dummy_2.Width := 30;
     dummy_2.Height := 30;
     dummy_2.Top := 69;
     dummy_2.Left := 69;
     dummy_2.Brush.Color := clBlack;
     dummy_2.Pen.Color := clCream;
     dummy_2.Show;
   finally
    dummy_2.free;
   end;
end;

Aber das wohl funktioniert:

Delphi-Quellcode:

procedure TForm1.Shape_1;
var
   i : Integer;
     dummy : TShape;
begin
    for i:= 0 to 1 do
       begin
        dummy := TShape.Create(Self);
        dummy.Shape := stCircle;
        dummy.Parent := Panel1;
        dummy.Width := 30;
        dummy.Height := 30;
        dummy.Top := 69;
        dummy.Left := 69;
        dummy.Brush.Color := clBlack;
        dummy.Pen.Color := clCream;
        dummy.Show;
      end;

    dummy.Free;
  end;

Gruß
Alexander