See TzCustomFormDesigner.OnSetNewName Event

TSetNameEvent = procedure (Sender: TObject; Component: TComponent; var Name: string) of object;