TPaingBox Canvas to Bitmap

출처: http://delphidabbler.com/tips/152

How to save the canvas of a TPaintBox to a .bmp file

var
  Bitmap: TBitmap;
  Source: TRect;
  Dest: TRect;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do
    begin
      Width := MyPaintBox.Width;
      Height := MyPaintBox.Height;
      Dest := Rect(0, 0, Width, Height);
    end;
    with MyPaintBox do
      Source := Rect(0, 0, Width, Height);
      Bitmap.Canvas.CopyRect(Dest, MyPaintBox.Canvas, Source);
      Bitmap.SaveToFile('MYFILE.BMP');
  finally
    Bitmap.Free;
  end;
end;