Fórum Renovar senha de usuario a cada 6 meses #394595

Recentemente envie uma pergunta a este forum sobre como renovar a senha a cada 6 meses de acordo com a data dos sistema. Recebi algumas respostas. Também questionei no Forum do DEVMEDIA e obtive a seguinte resposta:

Uses
DateUtils;
..
...
Var
DataAlteracao : TDateTime;
begin
//Pega a data da ultima alteracao no banco
DataAlteracao := DataModule1.Query1.FieldByName('dataalte').AsString;
//Incrementa essa data em seis meses
DataAlteracao := IncMonth(DataAlteracao,6);

if DataAlteracao >= Now then
ShowMessage('Voce tem que mudar sua senha em até 5 dias!');

//Incrementa a data de alteração em cinco dias
DataAlteracao := IncDay(DataAlteracao,5);

if DataAlteracao >= Now then
ShowMessage('Acesso negado.Contate o administrador do sistema')

end;

Fiz este código no evento onshow do meu formulário de login, porém ele funciona para cadastros com data inferior a 2011. Com cadastro efetuados apartir de janeiro de 2011 ele acrescenta os 6 meses. E que eu gostaria (como o da minha empresa em que trabalho) chegando próximo a data o usuario seja avisa que ele tem 7, 6, 5, 4, 3, 2, 1 dias para renovar a sua senha senão ela será bloqueada.
Obtive uma resposta no Forum Active Delphi assim:   Pode fazer isso usando a função DaysBetween
Código:
Showmessage( 'Faltam ' + IntToStr( DaysBetween( dataFinal, dataInicial ) ) + ' dias.' );