В ответ на DDE запрос приходит идентификатор данных

[Sauber]

Добрый день. Пытаюсь реализовать клиент, который по DDE запрашивает данные с сервера. Столкнулся с проблемой, что после запроса WM_DDE_REQUEST я получаю сообщение, делаю анпак, а атом содержит тот id эл-та который я запрашивал, хотя там должны быть данные.

  wm_dde_data:
        begin
          UnpackDDELparam(WM_DDE_DATA,lparam,addr(uiLo),addr(uiHi));//Распаковывам атрибут сообщения lparam
          FreeDDELParam(WM_DDE_DATA,lparam); //освобождаем память
          hDDEData:=uiLo;//uiLo- handle структуры типа DDEData
          pDDEData:=GlobalLock(hDDEData);//Определяем структуру данного типа
          aItem:=word(uiHi); // Из uiHi получаем атом, содержащий передаваемые данные
          if (pDDEData.Flags and $8000)=$8000 then begin  //Если требуется подтверждение, то посылаем его. Здесь происходит проверка 15-го бита
              PostMessage(hwnd_srv,WM_DDE_ACK,hwnd,PackDDELparam(WM_DDE_ACK,pDDEData.Flags,0));
          end;

          if word(pDDEData.cfFormat)=CF_PascalString then begin
            //aApp:=GlobalAddAtom('This is String');
            ce:=GlobalGetAtomName(longint(uiHi),addr(str),15);
           uiHi:=GlobalFindAtom('iteeeem1');
            ShowMessage(IntToStr(ce));
            ShowMessage(Str);
          end;
        end;

[Sauber]

Вот код самого запроса:

aApp:=GlobalAddAtom('dde_srv');
                aTop:=GlobalAddAtom('data');
                SendMessage(hwnd_broadcast,WM_DDE_INITIATE,hwnd,MakeLong(aApp,aTop));
                aId:=GlobalAddAtom('iteeeem1');
                PostMessage(hwnd_srv,WM_DDE_REQUEST,hwnd,MakeLong(CF_PascalString,aId));