Inport

var
  filindhold: TStringList;
  i: Integer;
begin
  filindhold := TStringList.Create;
  filindhold.loadfromfile('DIN_FILS_PLASERING');
  for i := 0 to filindhold.count do
  begin
    filindhold[i] := copy(filindhold[i], 0, 4) + '-' + copy(filindhold[i], 5, 4)
  end;
end;

(Er ikke testet)

var
  filindhold: TStringList;
  i: Integer;
begin
  filindhold := TStringList.Create;
  filindhold.loadfromfile('DIN_FILS_PLASERING');
  for i := 0 to filindhold.count -1 do // -1 ER VIGTIG!
  begin
    filindhold[i] := copy(filindhold[i], 0, 4) + '-' + copy(filindhold[i], 5, 4)
  end;
end;

nåh jah, doh, men havde heller ikk tested det :I

Det har jeg heller ikke. Den fejl var bare meget iøjenfaldende :-)