1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   begin
4     ADOQuery1.SQL.Add('Exec SP_WHO');
5     ADOQuery1.Active := True;
6   end;
7   
8   
9   {* For Any Information mail me *
10  
11  Mail : Mostafa@Touska.co.ir}