Pequena rotina, simples como a vida deve ser que nos ajuda a extrair a partir de uma data as informações separadas de dia, mes e ano permitindo as mais diversas implementações a partir dela

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TDateTime;
Ano, Mes, Dia: Word;
begin
Data:= StrToDate( <<DATETIME do Delphi>> );
DecodeDate( Data , Ano, Mes, Dia);
end;

 

Boa implementação a todos.