Minimizar....

[__cadetill]

prueba con Hide y Visible

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  Hide;
  WindowState := wsMinimized;
  for i := 1 to 1000000000 do
   begin
   end;
  Visible := true;
end;