Как получить uin открытого окна чата из плагина?

function pluginFun(data:pointer):pointer; stdcall;
var
  handle: Integer;
  r: TRect;
begin
result:=NIL;
if (data=NIL) or (_int_at(data)=0) then exit;
case _byte_at(data,4) of
  PM_EVENT:
    case _byte_at(data,5) of
      PE_INITIALIZE:
        begin
          RQ__ParseInitString(data, callback, vapiVersion, andrqPath, userPath, CurrentUIN);

          if RQ_GetRnQVersion < 1074 then
          	begin
              MessageBox(0, PChar('Извините, но RnQ Test Plugin не может работать с данной версией RnQ.'+ #13'Пожалуйста, обновите программу и снимите галку с плагина RnQHistoryToDB.dll '), PChar(PluginName), MB_ICONHAND);
              Exit;
            end;

          if not assigned(ExmplFrm) then
            ExmplFrm := TExmplFrm.create(NIL);

          if not assigned(SettingsForm) then
            SettingsForm := TSettingsForm.create(NIL);

          ShowWindow(application.Handle, SW_HIDE);
          SetLength(PicIndexMass,0);
          SetLength(PicIndexMass, Length(PicIndexMass) + 1);
          LoadINI;

          data := callStr(ansichar(PM_GET) + ansichar(PG_WINDOW) + ansichar(PW_CHAT));
          chat_hwnd := _int_at(data, 5);
          if chat_hwnd <> 0 then
            ExmplFrm.ParentWindow:= chat_hwnd;

          panelID:= 0;
          ba:= RQ_CreateChatButton(@OnButtonClick, ExmplFrm.Icon.Handle, PluginName);
          result:=str2comm(ansichar(PM_DATA)+_istring(PluginName)+_int(APIversion));
        end;

      PE_PREFERENCES:
        begin
          SettingsForm.Show;
        end;

      PE_FINALIZE:
        begin
          if MyTimerEnabled then StopMyTimer;
          if ba <> 0 then RQ_DeleteChatButton(ba);
          if panelID <> 0 then callStr(ansichar(PM_CMD)+ansichar(PC_TAB_DELETE)+_int(Integer(ExmplFrm.Handle)));
          if ExmplFrm <> nil then ExmplFrm.Free;
          if SettingsForm <> nil then SettingsForm.Free;
        end;

      PE_SELECTTAB:
        begin
          handle := _int_at(data, 6);
          r := RQ_GET_CHAT_RECT;
          if ExmplFrm.Handle = handle then
          begin
            ExmplFrm.BoundsRect := r;
            ExmplFrm.Show;
            SetWindowPos(ExmplFrm.Handle, hwnd_TopMost,
              ExmplFrm.Top, ExmplFrm.left,
              ExmplFrm.Width, ExmplFrm.Height, swp_NoMove or swp_NoSize or swp_NoRedraw);
          end;

          selectedtb := true;
          opentb := true;

          if MyTimerEnabled then
           begin
             StopMyTimer;
             ExmplFrm.LoadICONDefault;
           end;
        end;

      PE_DESELECTTAB:
        begin
          handle:= _int_at(data, 6);
          if ExmplFrm.Handle = handle then
          begin
            ExmplFrm.Hide;
          end;
          selectedtb := false;
        end;

      PE_CLOSETAB:
        begin
          handle:= _int_at(data, 6);
          if ExmplFrm.Handle = handle then
          begin
            SaveBoolToINI;
            ExmplFrm.Close;
            panelID:= 0;
          end;
          selectedtb := false;
          opentb := false;
        end;

      PE_MSG_SENT:
        begin
          AddMsgToFile(data, 0);
        end;

      PE_MSG_GOT:
        begin
          AddMsgToFile(data, 1);
        end;

    end; //case
  end; //case
end; //pluginFun

exports
  pluginFun;

INT RnQ_GetUINCurrentChatTab(){
	DWORD	iAPos,iPos,
			*pCommunication;
	BYTE	*bComm;
	INT		iDestUIN,			//возвращаемое значени
			iLen;

	iDestUIN=0;

	iAPos = 4;
	bAnswer[iAPos] = PM_GET; iAPos++;
	bAnswer[iAPos] = PG_CHAT_UIN; iAPos++;
	iAPos -=4;
	memcpy(bAnswer,&iAPos,4);
	pCommunication = funcCallback((DWORD*)bAnswer);

	do{
		if (pCommunication==NULL) break;

		//Get and check len
		memcpy(&iLen,pCommunication,4);

		if (iLen<18){
			MessageBoxA(NULL,"ERR: RnQ_GetUINCurrentChatTab","",MB_OK);
			break;
		}
		//------------------------
		//0-3	INT длина запроса
		//4		BYTE байт, почему-то всегда равен двум
		//5-8	INT	UIN
		//9-12	INT	длина строки
		//12-...строка, содержащая UIN
		//-------------------------
		//9-... это ISTRING, но че-то криво считывает функцией RQ_GetISTRING
		//считывает только 6 первых символов, но и iLen возвращает 18, но Тогда от UIN 
		//должно входить только 6 символов.
		//считать строку с UIN целиком можно так:
		//RQ_GetINT(bComm,&iPos,iLen,&ilenS);
		//strncpy(s,(char*)(bComm+iPos),ilenS);
		//в конце терминатор

		iPos=5;
		bComm = (BYTE*)(pCommunication);
		RQ_GetINT(bComm,&iPos,iLen,&iDestUIN);

	} while(0);

	return iDestUIN; //no errors
}