var
vForm: Tfrm_ChemaShowMainChild;
begin
vForm := GetActiveForm;
vForm.cht_Edit.SaveToMetafile(‘C:\1111.wmf‘);
vForm.cht_Edit.SaveToMetafileEnh(‘C:\2222.emf‘);
// // SaveChemaFile;
vForm.cht_Edit.SaveToBitmapFile(‘C:\333.bmp‘);
原文：http://www.cnblogs.com/zhangzhifeng/p/5435933.html