[totote]

Bueno dec gracias igual, he puesto una solución temporlamente para siempre hasta que encuentre algo mejor, pero el registro me ha quedado así

Código Delphi [-]
THistorial = record
    Titulo: String[255];
    Link: String[255];
    D1: String[255];
    D2: String[255];
    D3: String[255];
    D4: String[255];
  end;

y para separarlo lo hago de esta forma

Código Delphi [-]
procedure GuardarHistorial;
var
  Reg: file of THistorial;
  Historial: THistorial;
  LHistroial: TLink;
  i: Integer;
  aux: String;
begin
  AssignFile(Reg,Opciones.AppDir + 'Historial.dat');
  Rewrite(Reg);
  //....
      if Length(aux) > 255 then
      begin
        Historial.D1:= Copy(aux,1,255);
        Delete(aux,1,255);
        if Length(aux) > 255 then
        begin
          Historial.D2:= Copy(aux,1,255);
          Delete(aux,1,255);
          if Length(aux) > 255 then
          begin
            Historial.D3:= Copy(aux,1,255);
            Delete(aux,1,255);
            Historial.D4:= aux;
          end
          else
            Historial.D3:= aux;
        end
        else
          Historial.D2:= aux;
      end
      else
        Historial.D1:= aux;
      Write(Reg,Historial);
//...
  CloseFile(Reg);
end;