Source position: msegraphicstream.pas line 42
type writegraphicprocty = procedure(
const dest: TStream;
const source: tobject;
const format: string;
const params: array of Const
);