En/Decode fil til string?

Kode 

var f: file;
    data: pointer;
    i,i2: integer;
    s: string;
begin
   assignfile(f, 'c:\\upload\\test.txt');
   reset(f,1);
   i := filesize(f);
   getmem(data, i);
   blockread(f, pbytearray(data)^[0], i);
   closefile(f);
   //brug data til hvad du vil her. her tryller jeg foreksempel dataen om til hex
   for i2 := 0 to i-1 do s := s + inttohex(pbytearray(data)^[i2],2);
   freemem(data);
   caption := s;