Var
  tmpDate: TDateTime;
  tmpFilename: String;
Const
  ctOlderThanDays = 5;
Begin
  psExitCode:= 0;
  // hjernetrim-quiz-helside_2025-03-13.pdf 
  tmpFilename := ChangeFileExt(psFileName, '');
  // Check Date Length
  If length(tmpFilename) >= 10 Then
  Begin
    tmpFilename := RightStr(tmpFilename, 10);
    psLogWrite(1, '', 'Stripped: ' + tmpFilename);
    psLogWrite(1, '', Copy(tmpFilename,1,4) + ' ' + Copy(tmpFilename,6,2) + ' ' + Copy(tmpFilename,9,2));
    // Year, Month, Day: Word;
    If TryEncodeDate( StrToIntDef(Copy(tmpFilename,1,4), 0),  //
                      StrToIntDef(Copy(tmpFilename,6,2), 0), //
                      StrToIntDef(Copy(tmpFilename,9,2), 0), //
                      tmpDate) Then
    Begin
      IF tmpDate < psIncDay(Now, -ctOlderThanDays) Then
      Begin
        // Set Result
        psExitCode := 1;
        // Debug
        psLogWrite(1, '', 'Older than reached for: ' + psFilePath + psFilename);
      End;  
    End
    Else
      psLogWrite(1, '', 'Error converting Date part of string: ' + tmpFilename);
  End;
End.