1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   begin
4    ADOCommand1.CommnadText := 'Kill SP_ID'; //you can give spid in list of online 
5   users
6    ADOCommand1.Execute;
7   end;
8   
9   
10  {* For Any Information mail me *
11  
12  Mail : Mostafa@Touska.co.ir}