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;