var s:string;
//...
if _isType(_Data) = data_str then
  s := ToString(_Data);
else 
  s := ToStringEvent(_data_Text);