在RxRichEdit里面添加图片，如何改变添加图片的大小呢

在RxRichEdit里面添加图片，怎么改变添加图片的大小呢？
我想在RxRichEdit里面添加图片，想让添加的图片如果大小超过了Rxrichedit 的大小，就把图片的Width和Height的设置成跟Rxrichedit大小一样，用的Timage,发现更大大小没什么用，下面的代码是声明为TPicture，代码如下：

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);var  aBitmap:TPicture;  aclipboard:TClipboard ;begin   aBitmap:=Tpicture.Create ; // aBitmap:=TImage.Create(Self);  aBitmap.LoadFromFile('D:\Startbild.bmp');//  aBitmap.LoadFromFile() ; // aBitmap.Width :=RxRichEdit1.Width ;  //aBitmap.Height :=RxRichEdit1.Height ;//  aBitmap.AutoSize:=true ;  aclipboard:=TClipboard.Create ;  aclipboard.Assign(aBitmap);  RxRichEdit1.PasteFromClipboard ;end;

Delphi(Pascal) code

StretchBlt    函数从源矩形中复制一个位图到目标矩形，必要时按目前目标设备设置的模式进行图像的拉伸或压缩以满足目标矩形的尺寸。原型：BOOL StretchBlt(    HDC hdcDest,     int nXOriginDest, int nYOriginDest,  int nWidthDest, int nHeighDest,     HDC hdcSrc,     int nXOriginSrc,   int nYOriginSrc,   int nWidthSrc,   int nHeightSrc,     DWORD dwRop)；参数：hdcDest：指向目标设备环境的句柄。nXOriginDest、nYOriginDest：指定目标矩形左上角的X轴和Y轴坐标，按逻辑单位表示。nWidthDest、nHeightDest：指定目标矩形的宽度和高度，按逻辑单位表示。hdcSrc：指向源设备环境的句柄。nXOriginSrc、nYOriginSrc：指向源矩形区域左上角的X轴和Y轴坐标，按逻辑单位表示。nWidthSrc、nHeightSrc：指定源矩形的宽度和高度，按逻辑单位表示。dwRop：指定要进行的光栅操作。光栅操作码定义了系统如何在输出操作中组合颜色，这些操作包括画刷、源位图和目标位图等对象。参考 BitBlt 可了解常用的光栅操作码列表。在Windows CE 1.0和1.01版中，参数dwRop只支持SRCCOPY 和 SRCINVERT 。返回值：如果函数执行成功，那么返回值为非零，如果函数执行失败，那么返回值为零。若想获得更多的错误信息，请调用GetLastError函数