Получение элемента даты

Следующая статья: Как запустить другую программу.

Как из даты выделить нужный элемент?

Используйте универсальную функцию возврата значения элемента даты (год, месяц, день, квартал):

function RetDate(inDate: TDateTime; inTip: integer): integer;
var xYear, xMonth, xDay: word;
begin
 Result:=0;
 DecodeDate(inDate,xYear,xMonth,xDay);
 case inTip of
 1: Result:=xYear;// год
 2: Result:=xMonth;// месяц
 3: Result:=xDay;// день 
 4: if xMonth<4 then Result:=1// квартал
  else
  if xMonth<7 then Result:=2
  else
  if xMonth<10 then Result:=3
  else
  Result:=4;
 end;// case
 end;