Mover dos Form

[lucasarts_18]

Hola roman:

Lo he implementado de otra forma:

Código Delphi [-]
  
procedure TFrmPowerM.WMMenuSelect(var Message: TWMMove);
begin
   With FrmArchivos do
   begin
     if (FrmArchivos = nil) or (not Visible) then Exit;
     PosicionForm(Self.Left + Self.Width, Self.Top);
   end;
end;

Pero éste procedure lo quiero implementar solo cuando el 2 Form esté junto al 1 Form, y quiero saber si tú sabes como comprobar si los dos form están juntos, en caso de no estar junto no debe ejecutar ésto

Código Delphi [-]
PosicionForm(Self.Left + Self.Width, Self.Top);

Gracias.

Saludos.
Aarón