Pouzitelne?

{************************************************* ******************************
 *    Copy a Source BiMap into a TargetBitMap
 *    The TargetBitBap should a have a Frame of  X - Y   Pixels Size
 ************************************************** ****************************}
 
procedure  CreateBitmapFrame(SourceBMP,  TargetBMP :  TBitMap; FrameX, FrameY : Integer; FrameColor : TColor);
begin
 
     SourceBMP.SaveToFile('c:\t1.bmp');
 
     TargetBMP.Height := SourceBMP.Height + 2 * FrameY;
 
     TargetBMP.Width := SourceBMP.Width + 2 * FrameX;
 
 
   {************************************************* ***********************
   BOOL BitBlt(
      HDC hdcDest, // handle to destination DC
      int nXDest,  // x-coord of destination upper-left corner
      int nYDest,  // y-coord of destination upper-left corner
      int nWidth,  // width of destination rectangle
      int nHeight, // height of destination rectangle
      HDC hdcSrc,  // handle to source DC
      int nXSrc,   // x-coordinate of source upper-left corner
      int nYSrc,   // y-coordinate of source upper-left corner
      DWORD dwRop  // raster operation code
    );
    ************************************************** **********************}
 
 
     BitBlt(TargetBMP.Handle, FrameX, FrameY, SourceBMP.Width, SourceBMP.Height, SourceBMP.Handle, 0,  0, SRCCOPY);
 
 
     TargetBMP.SaveToFile('c:\t2.bmp');
end;