1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var win:HWND;
begin
  win:=FindWindow(nil,'Test');
  SetForegroundWindow(win);
  PostMessage(win,WM_MOVE,0,0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  SetWindowPos(
    win,           // handle of window
    HWND_TOPMOST,  // placement-order handle
    0,             // horizontal position
    0,             // vertical position
    0,             // width
    0,             // height
    SWP_SHOWWINDOW or SWP_NOSIZE // window-positioning flags
   );