recorrer un fichero e ir guardando su contenido

[__cadetill]

bueno, sin probarlo y a grandes rasgos....

var str : string;
    F : TextFile;
    MyCadena : string;
    i : integer;
begin
     AssignFile(F, 'c:\lolo.txt');
     Reset(F);
     MyCadena := '';
     while not EOF(F) do
      begin
           Readln(F, str);
           for i := 1 to length(str) do
            begin
                if str[i] <> '"' then
                   MyCadena := MyCadena + str[i];
            end;
      end;
     CloseFile(F);
end;

Espero te sirva