1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  Gauge.Visible := true;
  Gauge.ForeColor := $0082F6;
  Gauge.MaxValue := ListBox.Items.Count;
  for i := 0 to ListBox.Items.Count do begin
    if Abbruch then exit else begin
      if FileExists(ListBox.Items[i]) then
        try
          ImageBild.Picture.LoadFromFile(ListBox.Items[i]);
        except
        end;
      ListBox.ItemIndex := i;
      Gauge.Progress := i;
      Application.ProcessMessages;
    end;
  end;
  Gauge.Visible := false;					

1:
2:
3:
4:
5:

try
  // Fehlerbehaftener Code
except
  ShowMessage('Error occured at index: ' + IntToStr(i));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFBildURL.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  i := ListBox.ItemIndex;
  try
    ImageBild.Picture.LoadFromFile(ListBox.Items.Strings[i]);
  except
  end;
end;