Problem mit #0 in einer Text-Datei beim Laden

[Helmi]

Hallo,

ich hab das jetzt mal versucht hinzuzaubern, nur leider werden mir trotzdem nur die ersten Zeichen gezeigt.

Hier mal mein Code.
Den Gedanken von nahpets hab ich aufgefasst, und versucht umzusetzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Datei = 'd:\nc_upgrd.txt';

var
  MemoryStream: TMemoryStream;

  Position: Integer;
  S: String;
  Buffer: Char;

begin
  MemoryStream := TMemoryStream.Create;

  MemoryStream.LoadFromFile(Datei);
  MemoryStream.Position := 0;

  try
    while MemoryStream.Position < MemoryStream.Size do
      begin
        Position := MemoryStream.Read(Buffer, 1);

        If Buffer = #0 then
          begin
            Buffer := #32;

            MemoryStream.WriteBuffer(Buffer, 1);
          end;

        MemoryStream.Position := MemoryStream.Position + Position;
      end;

  MemoryStream.Position := 0;

    ListBox1.Items.LoadFromStream(MemoryStream);
  finally
    FreeAndNil(MemoryStream);
  end;
end;

Die Version mittels Stringstream und for-Schleife hat nicht funktioniert.