Source position: fpdatadict.pp line 558
type TGetConnectionEvent = procedure(
Sender: TObject;
var Connection: string
) of object;