TFahrzeug - Eine Fahrzeug-Klasse

[mimi]

wie währes noch wenn prüfen würdes ob das fahrzeug am rand ist weil irenwann ist es auser reichweite...

eine prüfung ist nicht schwer z.b. könntes du es so wie lings und recht machen:
if (x+speed)-fahrzeugbreite) >=0 then neue linke position // für lings
if (x+speed)+fahrzeugbreite) <=Form1.withd then neue linke position // für rechts

+speed ist die geschwindigkeit in der du das fahreug bewegt und so kannst du vorrauschauend prüfen ob eine collision mit der linken oder rechten seite stattfindet.

müste funktion getestet habe ich es jetzt nicht.

und die 100% cpu last kommt 100% von draw fuktion: pixel[x,y]:=clblack