SaveDTObject

function SaveDTObject(

  O: PObject_;

  Win: PWindow;

  Req: PRequester;

  File_: PChar;

  Mode: LongWord;

  SaveIcon: SmallInt;

  const TagList: array of PtrUInt

):LongWord;