Eigenes Zeichen für Zeilenende bei ReadLN

[Ginko]

Delphi-Quellcode:

var
  FileStrm1: TFileStream;
  tmpStr1, SuchWort: String;
  len: Cardinal;
  startpos: Integer ;
begin
  FileStrm1:= TFileStream.Create(Dateiname,fmOpenRead or fmShareCompat);
  try
    SuchWort:= Edit2.Text 
    SetLength(tmpStr1, Length(SuchWort));
    startpos:= StrToInt(Edit3.Text);

    FileStrm1.Seek(startpos,soFromBeginning);
    FileStrm1.ReadBuffer(tmpStr1[1], Length(tmpStr1));

    ShowMessage('Wort: ' + tmpStr1 +' || Position: ' +IntToStr(FileStrm1.Position));
  finally
    FreeAndNil(FileStrm1);
  end;

Also bei diesem Vorgang würde der Speicher nur um ca. die größe von tmpStr1 anwachsen ?