fehler ListenIndex

[SaFu]

Guten Morgen

Ich bekomme einen ListenIndex Fehler wenn ich das letzte Bild aus der FileListBox gelöschte habe aber ich finde diesen Fehler net sieht einer von euch was????

Delphi-Quellcode:

//=============Bilder löschen===================================================
procedure TForm4.Button1Click(Sender: TObject);
begin
if FileListBox1.FileName <> '' then //Wenn kein Name ausgewählt
  begin
    if MessageDlgPos('Wollen Sie dieses Bild wirklich löschen? ',mtInformation,[mbYes,mbNo],0,240,180) = mrYes then
      begin
        a:= FileListBox1.FileName; //Ausgewählte Datei in Variable übergeben

          if DeleteFile(FileListBox1.FileName) then // lösche des Datei namen
            begin
              FileListBox1.Update; //Aktualisieren
              ImageBilderanzeige.Refresh;
              FileListbox1.Selected[0]:= true; //Aktuellen index makieren
              bild:= Lowercase(ExtractFileExt(Bilddat + FileListBox1.Items[0]));

                if (bild = '.jpg') then //Pfad + .jpg
                 begin
                 // Laden der Bilder
                  ImageBilderanzeige.Picture.LoadFromFile(Bilddat + FileListBox1.Items[0]);
                 end;

               LabAnzahlBilder.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
             end;
          end;
      end
  else
    MessageDlgPos('Bitte Name des zu löschenden Bildes auswählen!',mtInformation,[mbOk],0,220,180);
end;

Gruss sascha