Pegar o nome do atributo de uma classe.

Olá pessoal.

Eu criei a seguinte classe exemplo:

[color=green:0e1b1df428]type
TParcela = class
private
FCOD_COBRANCA: Integer;
FCOD_PARCELA: Integer;
FVALOR: Double;
FVALOR_PAGO: Double;
end;[/color:0e1b1df428]

Eu preciso de um método ou função ou algo que me devolva o [b:0e1b1df428][i:0e1b1df428]nome[/i:0e1b1df428][/b:0e1b1df428] dos atributos que criei nesta classe, por exemplo:

[color=green:0e1b1df428]procedure ListarAtributosDaClasse;
var
i: Integer;
begin
for i := 0 to [b:0e1b1df428][i:0e1b1df428]TParcela.MaxAtributos [/i:0e1b1df428][/b:0e1b1df428]do //Propriedade ficticia
begin
showMessagebox([i:0e1b1df428][b:0e1b1df428]TParcela.Atributo[i][/b:0e1b1df428][/i:0e1b1df428]); //Prop. ficticia
end;
end;[/color:0e1b1df428]

Nas messagebox deveria aparecer [b:0e1b1df428]FCOD_COBRANCA[/b:0e1b1df428], depois [b:0e1b1df428]FCOD_PARCELA[/b:0e1b1df428], e assim por diante.

Obrigado!!

Até mais.