Form an Form docken

[joe666sa]

Delphi-Quellcode:

begin
         if (Form3.Left < (Form1.Left + Form1.Width + 10)) and
         ((Form3.Left + Form3.Width) >= (Form1.Left - 10)) and
          (Form3.Top < (Form1.Top + Form1.Height + 10)) and
         ((Form3.Top + Form3.Height) >= (Form1.Top - 10))then

Nur wenn man Form1 ganz schnell von Form2 wegzieht dann folgt Form2 nicht immer.

edit:

Nur wie kann man den code jetzt auf x Forms erweitern?