Como obtener las variables de un objeto

[TEO127]

Hola amigos mi consulta es la siguiente. dado un objeto cualquiera
ej :

Código Delphi [-]
type
MyObjeto = Class(TObject)

Private
_Data : TDataset;
_Serial: Tlist;
_Floop: TObject;
Public
function   Extv : Double;
Procedure opc1;
Procedure opc2;
End;

Como puedo obtener una referencia a las variables declaradas en este

algo asi como

Var
M : MyObject;
..
..
for i:=0 M.Variables.Count-1 do
...
.
.


Ando en busca de un simil de components o controls, pero que me liste las variables contenidas en mi objeto (no los componentes ni los controles).

Cualquier sugerencia se agradecera.

Saludos.