Delphi ListBox1 oberstes Item

[l1ko]

Hallo liebe Community,

ich habe eine warscheinlich ganz simple Frage aber ich bin noch sehr unerfahren mit Delphi deswegen frage ich euch

Meine Frage: Wie kann ich aus einer ListBox das Oberste Item auswählen und löschen? Mit meinem Code nimmt er nur das unterste.

Code:

procedure TForm1.Button6Click(Sender: TObject);

var
ID :integer;
FoundSelected:Boolean;  

begin
 FoundSelected :=false;
 for ID:= ListBox1.Items.Count - 1 downto - 0 do
    begin
    if ListBox1.Selected[ID] then
      begin
      FoundSelected := true;
      ListBox1.Items.Delete(ID);
      end;
    end;
if not FoundSelected then ListBox1.Items.Delete(ListBox1.Items.Count-1);
end;

Ich danke schonmal im voraus