Form"ausschieben" - Problem

[E307]

Code1:

Delphi-Quellcode:

//Form ausschieben 
procedure TForm1.FrmScrollOut; 
var i: Integer;
begin
if FPosition = fpRight then begin
if not SlideDone then begin
  SetFocus;
    for i := Form1.Left downto Screen.Width do
    begin
      Left := i;
      slidedone:=true;
      if i mod DelayTime = 0 then Sleep(10); // Für besseres Sliding
    end;
    Left := Screen.Width + Overlap;
    end;
    end;
end;

Code2:

Delphi-Quellcode:

//Form einziehen 
procedure TForm1.FrmScrollIn; 
var i: Integer;
begin
        if FPosition=fpRight then begin
  if not SlideDone then  begin
    for i := Screen.Width to Screen.Width+Width do
    begin
      Left := i;
      if i mod DelayTime = 0 then Sleep(10); // Für besseres Sliding
      slidedone:= true;
    end;
    Left := Screen.Width+Form1.Width;
    end;
    end;
end;

Der Code von oben ist nicht nur falsch, sondern auch unsinnig. Das hier ist der richtige falscheCode!