Indy HTTPProxyServer nur bestimmte IP-Adresse zulassen

[kuba]

Hallo,

ich bin minimal weitergekommen für eine Blacklist funktioniert folgender Code:

Delphi-Quellcode:

procedure TForm1.IdHTTPProxyServer1BeforeCommandHandler(
  ASender: TIdCmdTCPServer; var AData: string; AContext: TIdContext);
begin
  Memo1.Lines.Add(PeerIP + ' ' + AData);
  if pos('www.google.de',AData) > 0 then raise Exception.Create('');
end;

Kann mir jemand einen Tip geben, wie die Whitelist aussehen könnte ??

KUBA