Text Dateien (500mb+) in einen String einlesen

[endeffects]

ich hatte es anfangs mit folgendem code probiert

Delphi-Quellcode:

    F:=TFileStream.Create(FileName,fmOpenRead);
    try
      SetLength(Dumplist,F.Size);
      F.ReadBuffer(Dumplist[1],F.Size);
    finally
      F.Free;
    end;

    Dumplist:= FastReplace(FastReplace(Dumplist,'[[', '', False),']]', '', False);

    F:=TFileStream.Create(FileName,fmCreate);
    try
      F.Write(Dumplist[1],Length(Dumplist));
    finally
      F.Free;
    end;
     showmessage('done');
       // Dumplist:= FastReplace(Dumplist,'[[', '', False);

allerdings gibts dann wie erwartet die fehlermeldung
ich hätte zu wenig arbeitsspeicher