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 := 0 to FileListBox1.Items.Count - 1 do
          if DeleteFile(FileListBox1.Items[i]) then
           begin
             FileListbox1.Update; //Aktualisieren
             ImageBilderanzeige.Picture:= Nil;
           end;
      end;
  end
 else
  Form1.MessageDlgPos2('Es ist kein Bild ausgewählt!',mtInformation,[mbOk],Self);
end;