Source position: sqldbwebdata.pp line 27
type TNewIDEvent = procedure(
Sender: TObject;
out AID: string
) of object;