i am getting a Invalid typecast error from the below delphi code

Question

function FileSize64(var F : File): Int64;
var
ph :_stat;
pl:longword;
begin
pl := fstat(TFileRec(f).Handle, ph);
if (pl = $ffffffff) and (GetLastError <> 0) then
C