Mehrere ausgewählte Dateien löschen

[SaFu]

das funzt immernoch net so richtig hab ich das richtig eingebaut

Delphi-Quellcode:

procedure TForm4.Bildloeschen;
Var I :Integer;
begin
  if FileListBox1.FileName <> '' then
   begin
    if Form1.MessageDlgPos2('Wollen Sie dieses Dokument wirklich löschen? ',mtInformation,[mbYes,mbNo],self) = mrYes then
      begin
       for i := FileListBox1.Items.Count - 1 downto 0 do
        if FileListbox1.Selected[i] then
         begin
          if DeleteFile(FileListBox1.Items[i]) then
           begin
             FileListbox1.Update; //Aktualisieren
             ImageBilderanzeige.Picture:= Nil;
           end;
         end; 
      end;
  end
else
  Form1.MessageDlgPos2('Es ist kein Bild ausgewählt!',mtInformation,[mbOk],Self);
end;