procedure TForm1.Button1Click(Sender: TObject);
begin
//EncodeDate(Année, Mois, Jour)
if Date > EncodeDate(2003,1,1) then
ShowMessage('Bonne année 2003 !')
else
ShowMessage('Pas encore 2003 !');
end;