[VB.NET]
Event OnPassphrase As TSBPGPPassphraseEvent
Delegate Sub TSBPGPPassphraseEvent(ByVal Sender As Object, ByRef Passphrase As String, ByRef Cancel As Boolean)
[Pascal]
property OnPassphrase : TSBPGPPassphraseEvent;
TSBPGPPassphraseEvent = procedure(Sender: TObject; var Passphrase: string; var Cancel : boolean) of object;