como separar la fecha

[ddd_ddd]

necesito saber como asignar al dia, el mes y el año a tres labels respectivamente

label1=dia
label2=mes
label3=año

no se como hacerlo

[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 Dia,Mes,Anno:Word;
 begin
 DecodeDate(Date,Anno,Mes,Dia);
 label1.Caption:=IntToStr(Dia);
 label2.Caption:=IntToStr(Mes);
 label3.Caption:=IntTostr(Anno);
 end;

Un Saludo