Problem mit Bewegung->Canvas

[mangaka]

habe die lösung...
vllt meintest du das sogar:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if oben then
  begin
    y:=y-10;
    Canvas.Rectangle(x,y,x+Breite,y+Hoehe);
  end;

  if unten then
  begin
    y:=y+10;
    Canvas.Rectangle(x,y,x+Breite,y+Hoehe);
  end;
end;

sry falsch ich dich falsch verstanden habe...
s