TCryptoInitEvent = procedure (Sender: TObject; Key: Pointer; KeyLen: Integer; out OutData: Pointer; out OutDataBytes: Integer) of object