Na das sieht doch schon ganz anders aus...
Leider hast Du immer noch nicht die proceduren in der Form definiert, deswegen muss du immer noch
Form1.Timer1.Enabled:=true;
schreiben.
Auch wenn ich das so nie programmieren würde, könntest Du an dieser Stelle schreiben:
Delphi-Quellcode:
Form1.Timer1.Enabled:=true;
While Form1.Timer1.Enabled = true do
begin
Application.Processmessages;
Sleep(10);
end;
Das Erzeugen der Scheiben ist falsch [t] ??? Vielleicht [i]?
Die Animation funktioniert auch nicht... Weil Du den Timer zu früh abschaltest...