shape1+1 ?

[malo]

Zitat von Pr0g:

Dann aber das Freigeben nicht vergessen.

stimmt. Folgendes fehlt dann noch:

Delphi-Quellcode:

TForm1.FormClose(Sender: TObject);
var i: integer;
begin
  for i := 0 to 10 do
    ShapeArray[i].Free;
end;