Мгновенно скрыть форму

[Kronos913]

Вот такой вот код для скриншота

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
begin
    Form1.Visible:=False;
    Form1.Refresh;

    Sleep(150); {!!!!!!!!!}

    bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Picture.Assign(bmp);
    bmp.Free;

    Form1.Visible:=True;
end;

Внимание, вопрос!
Как мгновенно скрыть форму, чтобы не было необходимости делать Sleep(150)?

Потому что без Sleep, или при маленьком значении - форма попадает в кадр.

[Kronos913]

Единственное, что пришло на ум:

procedure TForm1.Button1Click(Sender: TObject);
var
    bmp:TBitMap;
    x, x1, y, y1: Integer;
begin
    x:=Screen.Width;
    y:=Screen.Height;
    y1:=Form1.Top;
    x1:=Form1.Left;

    Form1.Top:=y+2;
    Form1.Left:=x+2;

    bmp := TBitmap.Create;
    bmp.Width := x;
    bmp.Height := y;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Picture.Assign(bmp);
    bmp.Free;

    Form1.Top:=y1;
    Form1.Left:=x1;
end;

[macomics]

Form1.Refresh обновляет/перерисовывает клиентскую область формы, которая после Form1.Visible := False отсутствует. Используйте вместо Form1.Refresh

InvalidateRect(0, NULL, False);

чтобы инициировать принудительную перерисовку всех окон.

[northener]

А можно и вызвать

Application.ProcessMessages

Вот только не понятно зачем нужна эта самая форма?