Source position: IdGopher.pas line 204
type TIdGopherMenuEvent = procedure(
Sender: TObject;
MenuItem: TIdGopherMenuItem
) of object;