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