вот рабочий пример
посадите код на кнопку, запустите calc.exe (русский - если нет, изменить NameApp (с блокнотом не прокатило, может там юникод? :( )), кликните кнопу - форма калька изменится.
var wnd:HWND;
caption,NameApp:string;
TheChildHandle:HWND;
r: TRect;
RectW, RectH: integer;
begin
NameApp:='Калькулятор';
wnd:=FindWindow(nil, pchar(NameApp));
if wnd<>0
then begin
GetWindowRect(wnd, R);
RectW := R.Right - R.Left+50;
RectH := R.Bottom - R.Top+50;
SetWindowPos(Wnd, HWND_TOP, 1, 1, 1, 1, SWP_NOSENDCHANGING);
SetWindowPos(Wnd, HWND_TOP, R.Left, R.Top, RectW, RectH, SWP_NOSENDCHANGING)
end
else begin
showmessage('Не вижу окна с именем: '+NameApp);
end;