function GetComponentProperties(Instance: TPersistent; AList: TStrings):
 Integer;
var
 I, Count: Integer;
 PropInfo: PPropInfo;
 PropList: PPropList;
begin
 Result := 0;
 Count := GetTypeData(Instance.ClassInfo)^.PropCount;
 if Count > 0 then
 begin
 GetMem(PropList, Count * SizeOf(Pointer));
 try
 GetPropInfos(Instance.ClassInfo, PropList);
 for I := 0 to Count - 1 do
 begin
 PropInfo := PropList^[I];
 if PropInfo = nil then
 Break;
 if IsStoredProp(Instance, PropInfo) then
 begin
 {
 case PropInfo^.PropType^.Kind of
 tkInteger:
 tkMethod:
 tkClass:
 ...
 end;
 }
 end;
 Result := AList.Add(PropInfo^.Name);
 end;
 finally
 FreeMem(PropList, Count * SizeOf(Pointer));
 end;
 end;
end;