[Gareth]

Сообщение от NumLock

Код:

procedure TForm1.WMMOVE(var Msg: TWMMove);
var
  h: HWND;
begin

inherited;

  x:=Left;
  y:=Top;
  h := FindWindow(nil, 'C:\WINDOWS\system32\cmd.exe');
  if h <> 0 then
       SetWindowPos(h, HWND_TOP, x, y, 0,0,  SWP_NOSIZE or SWP_NOACTIVATE);
end;

Спасибо, всё получилось.
Alegun, так же спасибо!