怎样动态改变托盘的szTip（提示）有原代码再加100分决不食言！

                            
var   
         strinfo:   String;   
      
   nid.cbSize   :=   sizeof   (nid);   
         nid.wnd   :=   Handle;   
         nid.uID   :=   1;      
         nid.uCallBAckMessage   :=   wm_IconMessage;   
         nid.hIcon   :=   Application.Icon.Handle;   
         nid.szTip   :=strinfo   ;   
         nid.uFlags   :=   nif_Message   or   nif_Icon   or   nif_Tip;   
         Shell_NotifyIcon   (NIM_MODIFY,   @nid);   
   我想让鼠标每次移到托盘图表的时候nid.uFlas显示的字符都不一样。请问怎么实现。   
   现在这句话nid.szTip   :=strinfo   ;程序也通不过！提示[Erro]   main.pas(916):      
   Incompatible   types:   'Array   and   String'   
   如果有原代码再加100分决不食言