Как сделать снимок (screenshot) и сохранить его в JPG?

procedure TForm1.Button1Click(Sender TObject);
var
  bmp TBitmap;
begin
  bmp = TBitmap.Create;
  try
    bmp.Width = Screen.Width;
    bmp.Height = Screen.Height;
    if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then
      Image1.Picture.Bitmap.Assign (bmp)
    else
      ShowMessage ('Failed!');
  finally
    bmp.Free;
  end;
end;