procedure TForm1.Button1Click(Sender: TObject); var dtDate : TDateTime; FIniFile : TIniFile; begin FIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')); // Tu récupères l'ancien Etalonage. dtDate := FIniFile.ReadDate('Setup','Etalonage',0); //Et Tu compares s'il faut refaire l'etalonage. if round(Now - dtDate) > 31 then ShowMessage('Etalonage à faire !'); FIniFile.Free; end;