Сделать снимок рабочего стола

По нажатию на клавишу, делается снимок рабочего стола.
Если код поместить в таймер то снимки будут делаться регулярно с новым именем.

на форму кидаем кнопку (тут она намазываться BitBtn1Click),  Image1, Label3.

uses jpeg;

procedure TForm1.BitBtn1Click (Sender: TObject);
var
Canvas:TCanvas;
ScreenV:HDC;
i: String;

begin
i:='1'; // расширение

ScreenV := GetDC (0);
Canvas:=TCanvas.Create ();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect (Rect (0,0,Image1.Width,Image1.Height),
Canvas, Rect (0,0,Screen.Width,Screen.Height));
ReleaseDC (0,ScreenV);
Canvas.Free;

Label3.Caption:=IntToStr (StrToInt (Label3.Caption)+StrToINt (i)); //счетчик
Image1.Picture.SaveToFile (IntTOStr (StrToInt ('имя файла')+StrToInt (Label3.Caption))+i);
end;