[fpc-pascal] Get all caller adresses of a procedure/function

[Marco van de Voort]

In our previous episode, Sven Barth said:
> > The function returns the right language.
> 
> Somehow this sounds like the GNU GetText function _() works. With the 
> exception that the text which has to be translated is simply searched by 
> looking through the source code for _("some text")...

Note that one of the problems of this is that it makes your text also the
key that identifies an unique piece of text. 

While I use (dx)gettext myself, I still think that is one of the
disadvantages.

P.s. the _() is not necessary with D2009+ anymore