[[Lepe]]

Está respondido... pero vayamos un poco más allá:

Código Delphi [-]

uses DateUtils;

procedure Mio;
var a,m, d : Word;
begin
  DecodeDate(date, a,m,d);
// ya tenemos  el año, mes y dia en tres variables
end;

Saludos