Source position: ucbase.pas line 302
type TOnAddProfile = procedure(
Sender: TObject;
var Profile: string
) of object;