[NumLock]

чтение из TFileStream в String :

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  filestream: TFileStream;
  s: String;
begin
  filestream:=TFileStream.Create('c:\Downloads\bp.txt', fmOpenRead);
  SetLength(s, filestream.Size);
  Caption:=IntToStr(filestream.Read(PChar(s)^, Length(s)));
  filestream.Free;
  Memo1.Text:=s;
end;

или :

Код:

filestream.Read(s[1], Length(s))