TccDataObject.GetPropertyList

MyObject := TccDataObject.Create;
List     := TStringList.Create;
try
  MyObject.Properties['Example1'] := 'Hello';
  MyObject.Properties['Example2'] := 'World';
  
  MyObject.GetPropertyList(List);

  for i:=0 to List.Count-1 do
  begin
    ShowMessage(VarToStr(MyObject.Properties[List.Strings[i]]));
  end;
finally
  List.Free;
  MyObject.Free;
end;