Ahora bien...
Se me ocurrre que debes de hacer algo asi:
Por ejemplo en el OnClick de un boton:
Código:
procedure Tform1.botonClick(sender :TObject);
var
fecharesult :TDate;
ano, mes, dia :Word;
begin
fecharesult:=fechafinal-fechainicial;
decodedate(fecharesult,ano,mes,dia);
label1.caption:=inttostr(ano)+' Año, '+inttostr(mes)+
' mes, '+' y '+inttostr(dia)+ ' dias';
end;
//donde label1 es un TLabel
Y eso es todo
//Carambolas mientras escribia se me ha adelantado cso2000
