Hach ich habs
Vielen Danke für euer Hilfe!
Hier meine Lösung, falls jemand selbes Problem hat:
Code:
procedure TForm1.TimerArmeeGTimer(Sender: TObject);
var x, m :integer;
Ziel,Quelle :TRect;
begin
x := -1;
m := 0;
repeat
x := x-1;
inc(m);
Sleep(40);
Quelle := Rect(400 + (x),248,512 + (x),392);
Ziel := Rect(400 + (x-1),248,512 + (x-1),392);
canvas.CopyRect(Ziel, canvas, Quelle);
until
m >= 100;
if m >= 100 then TimerArmeeG.enabled := false;
end;
Gruß,
thechus