Fórum Help-Me Ler string me arquivo binario #591232

procedure TForm3.Button1Click(Sender: TObject);
var
  StStream: TStringStream;
  FStream: TFileStream;
  S, SDS : UnicodeString;
begin
   FStream := TFileStream.Create(''c:/file.bin'', fmOpenRead);
   StStream := TStringStream.Create('''');
   StStream.CopyFrom(FStream, FStream.Size);
   SDS := StStream.DataString;
   try
     S := ''blablabla'';
     if Pos(S, SDS) > 0 then
        ListBox1.Items.Add(S);
   finally
     StStream.Free;
     FStream.Free;
   end;
end;