Find and read

Kode 

function check: integer;
var t: tstringlist;
    s: string;
begin
   t := tstringlist.create;
   t.loadfromfile('temp.temp');
   s := stringreplace(t.text, #13#10, '', [rfreplaceall]);
   t.destroy;
   delete(s, 1, pos('<font color=white>You have ')+26);
   result := strtoint(copy(s, 1, pos(' ', s)));
end;