Última Modificación de un archivo

[[Gunman]]

Antes que nada, quiero dejar claro que sí he visto los otros hilos y sus sugerencias, de las cuales cabria destacar la de Neftalí, sin embargo, yo he intentado elaborar mi propia función, para ello he usado la función FindFirst, véase el código siguiente:

Código Delphi [-]
 function GetLocalModified(FileName: String): String;
 var
   SearchRec: TSearchRec;
   Modified: Real;
 begin
   if FindFirst(FileName, faAnyFile, SearchRec) = 0 then
   begin
     Modified := SearchRec.FindData.ftLastWriteTime.dwHighDateTime;
     Result :=  FloatToStr(Modified);
   end;
   FindClose(SearchRec);
 end;

SearchRec.FindData.ftLastWriteTime tiene en su interior dos propiedades, la dwHighDateTime y la dwLowDateTime, ambas son de tipo Cardinal. Mi pregunta, cómo obtengo la fecha de modificación des de esta función (FindFirst) si se puede, alguien lo ha intentado? Deberia usar la función de Neftalí?

[[Gunman]]

Sólo deciros que ya he solucionado el problema a partir del código de Neftalí, pero usando la función FindFirst.