procedure THIDDEClientItem._work_doAutoUpdate;
var hszItem,hData:THandle; dwRes:DWORD;
begin
  _prop_AutoUpdate := ToInteger(_Data);
  hszItem := DdeCreateStringHandle(g_DdeInstance,PChar(ItemName),CP_WINANSI);
  if _prop_AutoUpdate=0 then begin
    if hConv<>0 then DdeClientTransaction(nil,0,hConv,hszItem,CF_TEXT,XTYP_ADVSTOP,_prop_Timeout,dwRes);
    hConv := 0;
  end else if hConv=0 then begin
    if Assigned(Applet) and (not AppletTerminated) then Applet.ProcessMessages;
    hConv := THandle(ReadInteger(_Data,_data_Link,0));
    ...
end;