function TForm1.GetDirTime(Path: string): TDateTime;
var
  FAttr: DWORD;
  Info: WIN32_FILE_ATTRIBUTE_DATA;
  SysTimeStruct: SYSTEMTIME;
begin
  if GetFileAttributesEx(PChar(Path), GetFileExInfoStandard, @Info) then
  begin
    if FileTimeToSystemTime(Info.ftCreationTime, SysTimeStruct) then
      Result := SystemTimeToDateTime(SysTimeStruct)
    else
      Result := 0;
  end
  else
    Result := 0;
end;