Form in eine Timer Procedure integrieren

[BigT]

ja genau und zwar so:

Delphi-Quellcode:

procedure tsnake.tttimer(sender:TObject; Form:TForm);
begin
    OtherItem := GetShape(ElementList.Count-1);
    CurrentItem.Shape := OtherItem.Shape;
    CurrentItem.Brush.Color := OtherItem.Brush.Color;
    CurrentItem.Top := OtherItem.Top;
    CurrentItem.Left := OtherItem.Left;
    CurrentItem.Width := OtherItem.Width;
    CurrentItem.Height := OtherItem.Height;
    ElementList.Add(Pointer(CurrentItem));
end;

und das macht er eben nur wenn ich die Form mitübergebe.