Programm hängt an. Ich habe D7.
Man könnte evtl. noch zum Testen folgendes ändern:
Delphi-Quellcode:
procedure TSpielfeld.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
Ball.ZeigeDich;
Bild.Canvas.Pixels[Round(Ball.x),Round(Ball.y)] := clBlack;
Ball.BewegeDich;
Ball.ZeigeDich;
timer1.enabled:=true;
end;
Allerdings hängt dann die Ballgeschwindigkeit immer mit von der CPU ab.