Nome da procedure

Como saber o nome da procedure que está sendo executada usando OO? Exemplo:

procedure A;
begin
ShowMessage(<Nome da procedure>);
end;

procedure B;
begin
ShowMessage(<Nome da procedure>);
end;


Não quero colocar o nome da proceudre de forma explícita.

Obrigado