procedure ExecuteTarget(Target: TObject); override;

This is ExecuteTarget, a member of class TTntEditDelete.