Delete a user’s Login In Sql Server 2000

Delete a user’s Login In Sql Server 2000

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'Exec SP_DropLogin ' + QuotedStr('UserName');
  ADOCommand1.Execute;
end;