procedure TForm1.Button1Click(Sender: TObject);
var
dc:HDC;
begin
dc:=GetDc(0);
bitblt(dc,0,0,width,height,image1.Canvas.Handle,0,0,srccopy);
end;