Перемещение формы

Code:

... = class(TForm)

...

protected

   procedure CreateParams( var params: TCreateParams ); override;

...

procedure TForm2.Createparams(var params: TCreateParams);

var

  aHWnd : HWND;

begin

inherited;

{как-нибудь получаем существующий дескриптор}

ahWnd := GetForegroundWindow;

{а теперь:}

params.WndParent := ahWnd;

end;