Verificar status de cliente baseado em dia de vencimento

[yneves]

Olá senhores,
Estou desenvolvendo um sistema para um cliente onde, no ato do cadastro do cliente, ele preenche um radio button que possui 3 valores relacionados a data de vencimento(por exemplo, todo dia 5). Ele quer que implemente algo que quando passasse desse dia de vencimento o status mudasse, informando que o cliente está em débito. Não tenho a mínima ideia de como fazer isso pois só tenho o dia, não uma data completa. Poderiam me ajudar? Desde já obrigado.

Segue o código:

if DayOf(date) > FDCadPadraoCL_DIA_VENCIMENTO.Value then
begin
	lblStatus.Caption := 'Atrasado';
	lblStatus.Color := clRed;
end
else
begin
	lblStatus.Caption := 'Em dia';
	lblStatus.Color := clGreen;
end;