Código Delphi
[-]
segundafecha:=encodedate(strtoInt(an),strToInt(mes),strtoint(dia);
Aquí "an" está en formato dos dígitos, es decir 02 para referirte al año 2002, la función lo entenderá como 1902, ya que el calendario base empieza en 1900, y al esperar un Word (que al fin y al cabo es un integer), lo interpreta mal. Obliga al usuario a escribir 4 dígitos para el año.
Saludos