var
// picOriginal: TPicture;
srcBMP: TBitmap;
begin
srcBMP := TBitmap.Create;
srcBMP.Width := 200;
srcBMP.Height := 200;
srcBMP.Canvas.StretchDraw(Rect(0, 0, srcBMP.Width, srcBMP.Height),
image2.Picture.Graphic);
image2.Picture.Assign(nil);
image2.Picture.Bitmap.Assign(srcBMP);
srcBMP.Free;
end;