GetMem - FreeMem

Jeg er løbet ind i et lille problem med hensyn til alloc og dealloc af hukommelse. Her er et eks:

Funktion til at læse en stump tekst i en stor tekstfil.
På forhånd ved jeg hvor meget jeg skal læse og hvor jeg skal starte.
--------------------------------------------------------
Function ReadRecord(Rec: PFixRecord; Stream: TFileStream): String;
var
  Buffer: Pchar;

begin
  Buffer := NIL;
  try try
      Stream.Position := Rec^.StartLocation;
      GetMem(Buffer, Rec^.EndLocation - Rec^.StartLocation);
      Stream.ReadBuffer(Buffer^, Rec^.EndLocation - Rec^.StartLocation);
      Result := StrPas(Buffer);
  finally
      if Assigned(Buffer) then
        FreeMem(Buffer);
  end;

  except
      on E: Exception do
        Raise Exception.create('Error in readrecord: ' + Rec^.Identification + ' : ' + E.message);
  end;
end;
--------------------------------------------------------

Ovenstående funktion kaldes i en lykke, således at jeg læser flere blokke efter hinanden.

Dette virker ok MEN:
I enkelte tilfælde indeholder bufferen noget tekst fra forgående læsning efter mit kald til GetMem(). Når jeg så læser med TFileStream.ReadBuffer bliver bufferen fyldt med den korrekt tekst fra filen efterfuldt af det der står i bufferen i forvejen??? 

Hved gør jeg galt?