As I said, you can call UnitName on every class declared in that unit. If the unit contains no suitable class declaration in the first place, you can always add one just for this purpose:
type
TClassInThisUnit = class;
initialization
LogThis(TClassInThisUnit.UnitName, SomeValue);
end.