Retornar nome do arquivo, função/procedure e linha do código fonte

[mauroalba 0]

Gostaria de saber se existe para o delphi algo equivalente às seguintes funções do clipper:

 

ProcFile(x)

ProcName(x)

ProcLine(x)

 

Sendo x o nível. Se chamarmos essas funções com x = 0 elas retornam respectivamente o nome do arquivo, o nome da função/procedure e o número da linha que está sendo executada.

Se x = 1 são retornados os dados da linha que chamou a função/procedureatual.

Se x = 2 são retornados os dados da linha que chamou a função/procedureque chamou a função/procedureatual, e assim sucessivamente.

 

Com isso é possível criar uma lista que mostra que código foi executado, extremamente útil para o suporte. Porém, por mais que eu tenha procurado nunca encontrei nada igual para o Delphi.

 

Alguém pode me ajudar?