procedure TMainFrm.Button1Click(Sender: TObject); var FileName:String; begin FileName:='NoBkBitmap.tcad'; MyCAD1.BkBitmap:= nil; MyCAD1.SaveToFile(FileName) ;//MyCAD1.SaveToStream(AStream) end;