procedure Encode(const AFilename: string; ADest: TStream); overload;
procedure Encode(ASrc: TStream; ADest: TStream); virtual; abstract; overload;
Create
Destroy
DoWork
EndWork