See TzCustomFormDesigner.OnGetObjectName Event

TGetObjNameEvent = procedure (Sender: TObject; Obj: TObject; var ObjName: string) of object;