Diferença entre datas!!!

Use está função:

function TFContForn.DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var
Data: TDateTime;
dia, mes, ano: Word;
begin
Data := DataAtual - DataVenc;
DecodeDate(Data, ano, mes, dia);
Result := FloatToStr(Data);
end;

se vc quizer colocar num edit:
Edit1.text := DifDias(strtodate(Maskedit1.text), Date);
O maskedit é a data de vencimento e ´date´ é a data do sistema, no caso Hoje.

Um bom Carnaval

No Delphi existe uma função chamada DaysBetween, onde você informa a data inicial e a data final e é retornado o número de dias entre essas datas.

UNIT com todas as funções de calculos de data e hora com código aberto...é só acrescentar ao teus projetos....

http://www.carnette.kit.net/D5/esbdates.zip