Seltsame Eigenheit von TMemo/TFileStream/string

[BrainCode]

Ich habe folgenden Code geschrieben, der auch problemlos jede Art von Datei einliest. Dabei gibt es bloß ein Problem: Wenn ich, anstatt buffer immer gleich an Memo1.Text anzuhängen, an eine String-Variable anhänge und diese später dem Memo zuweise, ergeben sich bei der Darstellung Unterschiede zur aktuellen Lösung. Kann mir das jemand erklären???

Code:

procedure TForm1.mnuOeffnenClick(Sender: TObject);
var
  datei: file;
  buffer: byte;
begin
  if opendialog1.Execute then begin
    memo1.Clear;
    assignfile(datei,opendialog1.FileName);
    reset(datei,1);
    while not eof(datei) do begin
      blockread(datei,buffer,1);
      if buffer = 0 then buffer := 32; 
      memo1.Text := memo1.Text + chr(buffer);
    end;
    closefile(datei);
  end;
end;