1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   begin
4     ADOConnection1.Connected := True;
5     ADOCommand1.CommandText  := 'Exec SP_AddLogin ' + QuotedStr('UserName') +
6       ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' +
7       QuotedStr('English') + ';';
8     ADOCommand1.Execute;
9   end;
10  
11  
12  
13  {* For Any Information Mail Me *}