[Drozh]

попробуй вот так

Код:

procedure SizeWindow(const Wnd: HWND; const nWindth, nHeight: Integer);
var
 Rect: TRect;
begin
 if Wnd <> 0 then
 begin
  GetWindowRect(Wnd, Rect);
  MoveWindow(Wnd, Rect.Left, Rect.Top, nWindth, nHeight, True);
 end;
end;