Wie schreibt man in die Unit beim Programmablauf??

[Kihaku]

So hab ich es auch wieder nicht gemeint, aber es ist schon ärgerlich das man meistens min. 5 Stunden warten muss, bis etwas kommt. Aber wie gesagt, sorry für die Bemerkung


Hmm also das von axel klappt nicht so ganz. ich muss das ja auch in nen Spriteändern oder? also ich habe das jetzt so:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
Gegen : Array of TImageSprite;
begin


setlength(Gegen,6);   // 6 Steine

for i := 0 to high(Gegen) do
begin
  with Gegen[i] do
begin
   TGegenstand.Create(self);
   inherited Create(AParent);
   Image := Form1.DXImageList1.Items.Find('Stone');
   Top := trunc(random * 300); // Zufallszahlen als Bsp
   left := trunc(random * 300); 
   height := 36;
   width:= 36;
   Visible := true; 
   Show;
end; 

end;
end;

keine ahnung ob das richtig ist, aber wenn ich es ausführen möchte, kommt diese Fehlermeldung:

[Error] Unit1.pas(284): Incompatible types: 'TSprite' and 'TForm1'
[Error] Unit1.pas(285): Undeclared identifier: 'AParent'


Kann mir da jemand helfen?