fehler in Delphi 7 bzgl Listbox?!

[Muetze1]

Moin!

Da MultiSelect mehr als eine selektierte Zeilen haben kann, gibt dir der folgende Code immer den Index des ersten selektierten Eintrages zurück, oder -1 wenn keiner selektiert ist.

Delphi-Quellcode:

Function TForm1.GiveMeSelectedOne: Integer;
Var
  i : Integer;
Begin
  If ( ListBox1.SelCount < 1 ) Then
    Result := -1
  Else
    For i := 0 To Pred(ListBox1.Items.Count) Do
      If ( ListBox1.Selected[i] ) Then
      Begin
        Result := i;
        Break;
      End;
End;

MfG
Muetze1