Aynı Image'e Birden Fazla Ekran Resmi Almak

[Trial_Cooder]

Ben aşağıdaki kod ile istediğim pixel ekran resmini alıyorum. Fakat bi kere alabiliyorum. TImage'in Canvas.Handle'ını nasıl temizlerim ?

procedure TForm1.Button6Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle, 0, 0, 580, 40,DCDesk, 570, 30,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;

[Trial_Cooder]

Aşağıdaki şekilde çözdüm.

procedure TForm1.Button6Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
Image1.Enabled := False;
BitBlt(Image1.Canvas.Handle, 0, 0, 580, 40,DCDesk, 570, 30,SRCCOPY);
Image1.Enabled := True;
ReleaseDC(GetDesktopWindow, DCDesk);
end;