Problem mit Animierter Form

[mOzZzI]

Hai,
hab zwei proceduren mit der einen man das Formular an den Bildschirm zieht, und mit der anderen wieder vom Bildschirmrand weg...leider funktioniert das nur auf der Linken seite und nicht auf der rechten...kann man das umstellen?

Delphi-Quellcode:

procedure einziehen;
begin
  Form1.Align:=alNone;
  Form1.Tag := 0;
  while Form1.Tag > -Form1.Width + 22 do
  begin
    Form1.Left := Form1.Tag;
    Form1.Tag := Form1.Tag - 25;
    if Form1.Tag mod 10 = 0 then sleep(10);
    application.ProcessMessages;
  end;
  end;

procedure ausziehen;
begin
  while Form1.Tag < 0 do
  begin
    Form1.Left := Form1.Tag;
    Form1.Tag := Form1.Tag + 5;
    if Form1.Tag mod 10 = 0 then sleep(10);
    application.ProcessMessages;
  end;
  Form1.Align := alNone;
  end;

Gruß Philipp