Получить список переменных компонента

[Turbine]

Здравствуйте!
Как получить полный список переменных (не свойств).

[Serge_Bliznykov]

Сообщение от Turbine

Как получить полный список переменных (не свойств).

О как! А о чём идёт речь? можно на примере показать, что за компонент и что за переменные, которые Вы хотите из него получить?

[Turbine]

procedure GetVarNames(const AClass : TObject; var result: tmemo) ;
var lType : TRttiType;
  lContext : TRttiContext;
  lProperty : TRttiProperty;
  lField : TRttiField;
begin
//  Result := TStringList.create;
  LType := lContext.GetType(AClass.ClassType);
  if assigned(LType) then
  begin
    for LProperty in LType.GetProperties do
    begin
      Result.lines.Add(lProperty.Name);
      //Get current value:
      Result.lines.Add(lProperty.GetValue(AClass).ToString);
    end;
   for lField in LType.GetFields do
   begin
     Result.lines.Add(lField.Name);
     //Get current value:
     Result.lines.Add(lField.GetValue(AClass).ToString);
   end;
 end;
end;

Вызывается, естественно

GetVarNames (form1, memo1);

Понятно, что выводится все что описано в КЛАССЕ причём со значениями.
Но как достать до переменных объявленных в public?

public
{ Public declarations }
sl:tstringlist;
x: pSDU08;

А еще губораскатывательная машинка просит указатели на них