Canvas in ein RTF-Dokument speichern ?

[walharth]

Sorry, hier nochmals der vollständige Code (wurde leider nicht ganz übernommen) :

procedure TPrintForm.BitBtn1Click(Sender: TObject);
var
MTF:TMetaFile;
MTFCanvas:TMetaFileCanvas;
MyRect:TRect;
begin
MTF:=TMetaFile.create;
try
MyRect:=Prn.Canvas.ClipRect;
MTF.Width:=MyRect.Right-MyRect.Left;
MTF.Height:=MyRect.Bottom-MyRect.Top;
MTFCanvas:=TMetaFileCanvas.Create(MTF,0);
MTFCanvas.CopyRect(MyRect,Prn.canvas,Myrect);
MTF.SaveToFile(DataForm.ApDatabase.DataPath+'\PPP. WMF');
finally
MTF.Free;
end;
end;