دوستی پرسید که چطور میشه لیستی از کاربران فعال Sql Server را دریافت کرد؟

که در جواب باید بگم از طریق کد زیر:

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