چگونه می توان User را در Sql Server حذف کرد؟

چگونه می توان User را در Sql Server حذف کرد؟
​

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