Error con fecha (fecha ya pasada)

[tcp_ip_es]

No has inicializado la variable data. Con lo cual pilla la fecha por defecto.

procedure calc_anys(var anysup: integer; var anyinf: integer; var ComboboxEdat: TCombobox);
var
year, month, day:word;
Data: TDateTime;
begin
  //Fecha hoy
  Data:=date; 
  DecodeDate(Data, Year, Month, Day);
  showmessage(IntToStr(year));
end;

Saludos, Tony