procedure TForm1.Button1Click(Sender: TObject); var datTmp :tdatetime; NbJour :integer; begin try datTmp := strtodate( edit1.text ); nbJour := trunc(date - datTmp); label1.caption := 'Différence : ' + inttostr( nbJour ); except messagedlg( 'Erreur, ' + edit1.text + 'n''est pas une date valide.', mtinformation, [mbOk], 0 ); end; end; end.