1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   begin
4     ADOCommand1.CommandText := 'Exec SP_DropLogin ' + QuotedStr('UserName');
5     ADOCommand1.Execute;
6   end;
7   
8   
9   
10  {* For Any InforMation Mail Me *
11  
12  Mail : Mostafa@Touska.Co.ir}