Source position: IdDICTServer.pas line 78
type TIdDICTDefineEvent = procedure(
AContext: TIdCommand;
Database: string;
WordToFind: string
) of object;