Vyhľadanie okna pomocou názvu a jeho následné skrytie.

procedure TForm1.Button1Click(Sender: TObject);
var
 hwndShell: HWnd;
begin
 hwndShell := FindWindow (nil, 'Form1');
 ShowWindow (hwndShell, SW_HIDE);
end;