fehler ListenIndex

[SaFu]

Da bin ich echt net drauf gekommen hab mi nen wolf gesucht

Delphi-Quellcode:

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

          if DeleteFile(FileListBox1.FileName) then
           begin
             FileListbox1.Update; //Aktualisieren

             if FileListbox1.ItemIndex = 0 then// so geändert
              begin
               FileListbox1.Selected[0]:= true;

               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;
              end
              else                 
               LabAnzahlBilder.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
            end;
         end;
      end;
  end;