Schau doch mal in TCipher_AES?
Ob es im Constructor oder eine Methode einen Setter gibt, oder vielleicht gibt es auch ein Property, wo man eine Ereignismethode oder ein Interface zuweisen kann.
[Edit]
Es gibt ein
IDECProgress, aber scheinbar nur beim Ver-/Entschlüsseln von Streams
und im Prinzip auch von Dateien (TFileStream).
[Edit2]
Wer die das CodeInsight lesen kann, ist klar im Vorteil.
Delphi-Quellcode:
procedure DecodeFile(const SourceFileName, DestFileName: string;
const Progress: IDECProgress = nil);