It does not work on mac os x
Should be available in FPC 3.1+
For now I'm using a
Self.ClassName, however, it shows only class (
TForm in your case), not the procedure. Thou very useful if you have a wide range of classes.
I usually just hardcode names of the procedures in the log output, e.g.
dLog(LogLabelError,Self.ClassName,'DLabel.PrepareTextImage','Warning! Label width is not initialized! Trying to w='+IntToStr(Base.w));