bueno, sin probarlo y a grandes rasgos....
Código:
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