Du kannst folgenden Code testen - bei mir wird TSrchDialog nur breiter, nicht höher:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var aWnd : HWND;
begin
aWnd:= FindWindow(PChar('TSrchDialog'),nil);
if aWnd<>0 then MoveWindow(aWnd,200,200, 800, 500,TRUE);
end;