s:string;
d:TData;

s := ToString(d);