Form"ausschieben" - Problem

[DelphiKlaus]

Hallo alleine,

mir fallen nur die beiden Schleifen auf:

    for i := Form1.Left downto Screen.Width do setzt voraus, dass Form1.Left grösser als Screen.Width ist. Und

    for i := Screen.Width downto Screen.Width do ist ja eigentlich garkeine Schleife.