writegraphic

procedure writegraphic(

  const dest: TStream;

  const source: tbitmap;

  const aformatname: string;

  const params: array of Const

); overload;

procedure writegraphic(

  const dest: TStream;

  const source: tmaskedbitmap;

  const aformatname: string;

  const params: array of Const

); overload;

procedure writegraphic(

  const dest: TStream;

  const source: timagelist

); overload;