[Listbox] MouseUp - "index überschreitet Maximum" wenn leer

[Aurelius]

Hallo DP'ler

Ich greife im MouseUp-Ereignis einer Listbox auf diese zu:

Delphi-Quellcode:

if Button = mbLeft then
begin
   i := lsbPlaylist.ItemIndex;
   Datei := lsbPlaylist.Items.Strings[i];
   GetInfos(Datei);
end;

Nur leider kommt, wenn die Listbox leer ist, der Fehler "Index überschreitet Maximum" (ist ja auch ganz logisch ). Nur leider habe ich einfach keine Idee wie ich das lösen soll