Ú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:

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.