Sortierte Listbox, welcher String an welcher Stelle

[DataNess]

Hallo Leute,

ich weiss nicht so recht wie ich's beschreiben soll, aber ich habe folgendes Problem:
Ich habe ein Array mit allen möglichen Informationen zu Filmen, und eine StringList die mit den Filmtiteln aus dem Array gefüllt wird.
Nun habe ich eine Listbox mit der StringList gefüllt und jenachdem ob eine CheckBox aktiviert wird, werden die Einträge mit ListBox.Sorted sortiert!

Delphi-Quellcode:

procedure TMain.SortCBClick(Sender: TObject);
begin
  ListBox.Sorted:=SortCB.Checked;
  ListBox.Items:=sl;
  ListBox.Refresh;
end;

Wie finde ich nun am schnellsten raus, welcher ArrayIndex mit dem ausgewählten Listbox-Eintrag zusammenhängt ?

Delphi-Quellcode:

procedure TMain.ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var z:integer;
begin
  z:=(y div 13)+1;
  if (y=0) or (y>AnzFilme*13) or (x=0) or (x>419) then z:=100;
  if z<=anzfilme then
    StatusBar.Panels[1].Text:=Filme[z].Hint
  else
    StatusBar.Panels[1].Text:=' ';
end;

Im unsortierten Zustand klappt's so, aber wenn's sortiert ist müsste ich erst das ganze Array nach dem String 'ListBox.Items.Strings[z]' durchsuchen.

Danke im Vorraus