怎么将粘贴板中的图片复制到定义的Tbit地图中？多谢

如何将粘贴板中的图片复制到定义的Tbitmap中？在线等，谢谢
在抓屏（PRINT SCREEN）后，想要将粘贴板中的图片复制到定义的Tbitmap中，在DELPHI中如何实现？


另外，我现有一个图片尺寸为：800*600，我如何从中截取某一部分图片？如从：X：100；Y：100   开始取，尺寸为：30*30的图片？

谢谢
------解决思路----------------------

procedure AssignToBitmap(Dest: TBitmap);

var

  Data: THandle;

  Palette: HPALETTE;

begin

  Clipboard.Open;

  try

    Data := GetClipboardData(CF_BITMAP);

    Palette := GetClipboardData(CF_PALETTE);

    Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);

  finally

    Clipboard.Close;

  end;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

  AssignToBitmap(image1.Picture.Bitmap);

end;

------解决思路----------------------
Copyrect