Delete a User from adatabase in Sql Server 2000

Delete a User from adatabase in Sql Server 2000

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'Use DataBaseName';
  ADOCommand1.Execute;
  ADOCommand1.CommandText := 'Exec SP_DropUser ' + QuotedStr('Username');
  ADOCommand1.Execute;
end;