Как копировать и вставлять картинки через буфер обмена?

Code:

function CopyBufToClip(DC: HDC; var CopyDC: HDC; var CopyBitmap: HBitmap;

          Left, Top, Width, Height: Integer;

          Rop: LongInt; DeleteObjects: Boolean): Boolean;

var

TempBitmap: HBitmap;

begin

Result := False;

if (DC <> 0) and (CopyDC <> 0) and (CopyBitmap <> 0) then

   begin

     TempBitmap := CopyBitmap;

     CopyBitmap := SelectObject(DC, CopyBitmap);

     Result := BitBlt(DC, Left, Top, Width, Height, CopyDC, 0, 0, Rop);

     CopyBitmap := TempBitmap;

     if DeleteObjects then

       begin

         DeleteDC(CopyDC);

         DeleteObject(CopyBitmap);

       end;

   end;

end;