Get List of active users in Sql Server

Delphi/Pascal

procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.SQL.Add('Exec SP_WHO'); ADOQuery1.Active := True; end;

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.SQL.Add('Exec SP_WHO'); ADOQuery1.Active := True; end;