Trabalhando com Datas no Delphi

// Retorna o ano da data informada
// ===================================================================
function Ano(const Data: TDateTime): Integer;
var
  Ano, Mes, Dia : Word;
begin
  DecodeDate(Data, Ano, Mes, Dia);
  Result := Ano;
end;

Agora Em cima desta função você poderá retornar o Ano, Mes ou o Dia