Add a user into a database in Sql Server 2000

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;