Extraire le jour, le mois et l'année à partir d'un TDate

procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(Date,Xyr,Xmo,Xday);
B1.Caption:=IntToStr(Xyr);
B2.Caption:=IntToStr(Xmo);
B3.Caption:=IntToStr(Xday);
end;