Add a User's Login in Sql Server 2000

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Connected := True;
  ADOCommand1.CommandText  := 'Exec SP_AddLogin ' + QuotedStr('UserName') +
    ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' +
    QuotedStr('English') + ';';
  ADOCommand1.Execute;
end;