ListBox-Items "kontrolliert" löschen

[DelphiNoob1.0]

Danke für die schnelle Antwort! Also ich habe das jetzt mit else angefügt aber wenn ich auf mein minus button drücke löscht er alle einträge..

Delphi-Quellcode:

procedure TForm1.BtMinusClick(Sender: TObject);
var
name :integer;
begin
 for name:= ListBox.Items.Count - 1 downto 0 do
    if ListBox.Selected[name] then
      ListBox.Items.Delete(name)
    else
      ListBox.Items.Delete(ListBox.Items.Count-1);
end;

(Ich bin neu auf dem Gebiet Delphi [nur wegen Informatik in der Schule])