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