Indy10 Clientverbindung zum Server verbieten

[Loni]

Hi ich arbeite mit Indy10 und habe einen Server und einen Clienten. Ich würde gerne wissen wie ich die Verbindung zum Server verhindere wenn das Passwort nicht mit dem Passwort in der "Datenbanck" des Servers nicht stimmt also was in Z 165 stehen muss

Delphi-Quellcode:

procedure TFKyteServer.IdTCPServer1Execute(AContext: TIdContext);
//.....
//.....
    if User<>'' then
      begin
      if vleUsers.FindRow(User,iRow) then
        begin
        sPwd:=vleUsers.Values[User];
        if Passwort=sPwd then
          begin
            //Verbindung erlauben
            LiBEreignisse.Items.Add((TimeToStr(now))+': <'+(User)+'> hat sich angemeldet');
            vleIPAdressen.InsertRow(IP,User,true);
          end
          else
            begin
//Z:165     //Verbindung verhindern bzw Client kicken      <- wie bewerkstellige ich das
            end;
        end
        else
          begin
          LiBEreignisse.Items.Add((TimeToStr(now))+': '+'Neues Konto wurde angelegt >>  [ '+'Name: '+(User)+'  Passwort: '+(Passwort)+' ]');
          vleUsers.InsertRow(User,Passwort,True);
          vleIPAdressen.InsertRow(IP,User,True);
          end;
      end;

bin dankbar für jede Antwort