[Alegun]

Вместо таймера используйте OnMove т.е. отслеживайте перемещение формы

Код:

...
private
   procedure OnMove(var Msg: TWMMove); message WM_MOVE;
...

procedure TForm1.OnMove(var Msg: TWMMove);

var
  h: HWND;
begin

inherited;

  x:=form1.Left;
  y:=form1.Top+12;
  h := findwindow(nil, 'C:\WINDOWS\system32\cmd.exe');
  if h <> 0 then
       SetWindowPos(h, HWND_BOTTOM, x, y, 0,0,  swp_nosize);
end;