procedure TfMain.ImageEnMView1ImageAdd(Sender : TObject; idx : integer; const sFilename : string; 
                                       bFolder : boolean; bHiddenFile : boolean; iFileSizeBytes : Int64; 
                                       CreateDate : TDateTime; EditDate : TDateTime; var bAllow : Boolean);
const
  ONE_YEAR = 365;
begin
  // Don't add files more than a year old
  if EditDate < Now - ONE_YEAR then
    bAllow := False;
end;