ListBox-Items "kontrolliert" löschen

[DelphiNoob1.0]

Hallo Delphi-Genies,
ich arbeite momentan am Thema ListBox und habe eine Frage zum löschen von Strings.

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)
end;

wie man erkennen kann(hoffe ich)kann man durch drücken des Button[BtMinus] entweder ein oder mehrere makierte Strings löschen. Meine Frage ist wie man das Letzte Wort in der ListBox löschen kann.

Sry mein erster Beitrag . Bestimmt Verstoße ich gegen viele Regeln (sorry )

P.S. Also löschen indem man auf den Button klickt und nícht einfach das letzte Wort makiert