Callback auf WSARecv soll senden unterbinden

[napsterxx]

Also, ich hooke von einer Anwendung WSARecv. In meiner Callback funktion möchte ich nun überprüfen ob der Benutzer welcher gerade dem Spiel beitritt gebannt ist. Wenn er dies ist, soll das aktuelle Packet meine Anwendung nicht erreichen.

Delphi-Quellcode:

function callbackWSARecv(fSocket: TSocket; flpBuffers: lpWSABuf;
  fdwBufferCount: DWORD; var flpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD;
  flpOverlapped: lpWSAOverlapped;
  flpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;

function IsUserBanned(Username: String): Boolean;
begin
  Result := (Username = 'BannedUser');
end;

begin
    if (PByte(Cardinal(flpBuffers^.buf) + 1)^ = $02) and
      (IsUserbanned(String(PAnsiChar(Cardinal(flpBuffers^.buf) + 8)))) then
    begin
      ZeroMemory(flpBuffers^.buf, flpBuffers^.len);
      Result := -1;
      Exit;
    end;
    Result := newWSARecv(fSocket, flpBuffers, fdwBufferCount,
    flpNumberOfBytesRecvd, lpFlags, flpOverlapped, flpCompletionRoutine);
end;

Das Problem ist, der User kann zwar dem spiel nicht beitreten, aber es wird angezeigt, dass ein neuer Benutzer das Spiel betreten hat, aber sofort wieder verlassen hat.
Das liegt wohl daran, dass ich die zukünftigen Pakete und nicht das eigentliche unterbinde.

Nun die Frage, wie kann ich das realisieren?