ADO Database Delphi

Title: How to Add a user into a database in Sql Server 2000
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText := 'Use DataBaseName';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr('Username');
ADOCommand1.Execute;
end;
* For Any Infromation Mail Me *
Mail : Mostafa@Touska.Co.ir0