Delphi - Extraer el dia, mes, año de una Fecha

Hola, quiero Extraer el dia, año y mes de una fecha cualquiera ...
por Ejemplo, hago la siguiente string;

result:= 'Hoy es ' + IntToStr(Day) + ' DE ' + UpperCase(mes) + ' DEL ' + IntToStr(Year);

pero day y Year toman como referencia la fecha actual, Aqui el problema es:
como hacer que Day y Year tome el valor de la fecha dada ...

Gracias
Mario Flores Fierro

Chequea en las ayudas las funciones DecodeDate.... y EncodeDate...

Aquí tienes un pequeño procedimiento que hace lo que estás pidiendo

procedure TForm1.Button1Click(Sender: TObject);
var
Fecha : TDate;
Dia, Mes, Anio : Word;
begin
Fecha := Date;
DecodeDate(Fecha, Anio, Mes, Dia);
ShowMessage('Hoy es '+IntToStr(Dia)+' De '+IntToStr(Mes)+' Del '+IntToStr(Anio));
end;

Espero que te sirva

Para extraer el día, mes y año házlo como te han indicado antes, con DecodeDate.

DecodeDate(Fecha,Anio,Mes,Dia);

Fecha puede ser la actual (Now o Date), de un DateTimePicker (DateTimePicker.Date), de un edit, etc, etc.

Si solo quires poner 'Hoy es 6 de marzo de 2004' en una Label por ejemplo, solo tienes que hacer esto:

Label1.Caption := 'Hoy es ' + FormatDateTime('d "de "mmmm "de "yyyy',Now);

Si lo quieres en mayúsculas:
Label1.Caption := UpperCase('Hoy es ' + FormatDateTime('d "de "mmmm "de "yyyy',Now));

Si lo que quieres es el valor de otra fecha, por ejemplo cogida de un DateTimePicker, pues igual, sustituyendo Now por la fecha del DateTimePicker.

Label1.Caption := 'En Oslo, a ' + FormatDateTime('d "de "mmmm "de "yyyy',DateTimePicker.Date);

Suerte. Virum