func doIntToStr
   fvar(d1,old)
   d1 = Data
   old = block.select(BLK_PRIV_VAR)
   println(s, ':string;')
   block.select(old)
   println(s, ' := int2str(', d1, ');')
   event(onResult, s)
end

func Result
   if(not linked(doIntToStr))
      fvar(d1,old)
      d1 = Data
      old = block.select(BLK_PRIV_VAR)
      println(s, ':string;')
      block.select(old)
      println(s, ' := int2str(', d1, ');')
      return(s)
   else
      return(s)
   end
end[/code]А вот то, куда он выводится
func doMessage(_data_)
  if (Message <> '') 
     println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', Message, '), ', 'PChar(\'hiasm msg\'), MB_OK);')
  elseif (Message = '' and Text <> '')
     println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', Text, '), ', 'PChar(\'hiasm msg\'), MB_OK);')
  else 
     println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', _data_, '), ', 'PChar(\'hiasm msg\'), MB_OK);')  
  event(onMessage)
end
Что я делаю не так?

if State then begin
  ReadData(_Data,_data_X);
  ...
end else begin
  ReadData(_Data,_data_Y);
  ...
end;