Devuelve la fecha a partir de día, mes y año.
Un ejemplo de utilización:

function pFecha (dia, mes, ano : word) : TDate;

begin

  result := EncodeDate (ano, mes, dia);

end;

Funciones Delphi