Fórum Como faço para desconectar um usuário do servidor quot;Indy #320337

procedure TfMain.DesconctaEstacao;
var
  Msg : String;
  SelClient: PClient;
begin
  if lbClients.ItemIndex <> -1 then
    begin
     SelClient := PClient(Clients.LockList.Items[lbClients.ItemIndex]);
     lbStatus.Items.Insert(0,SelClient.Nome +´ Foi Desconectado ´+ TimeToStr(Time));
     try
      Clients.LockList.Remove(SelClient);//Essa linha remove o cliente
     finally
      Clients.UnlockList;
     end;
     FreeMem(SelClient);
     lbClients.Items.Delete(lbClients.ItemIndex);
     ListaEstacoes;
    end
  else
   begin
    MessageDlg(´Selecione a Estação na lista acima e tente novamente´,mtInformation,[mbOK],0);
    Exit;
   end;
end; {*DesconectaEstação *}