Problema com Aviso diario, (variaveis não recebem os Edits)

[Visitante: NMarques]

aí Pessoal...estou fazendo um projeto aqui...

E estou com alguns probleminhas para finalizar esse projeto...

Estou fazendo uma rotina q chama uma outra tela a cada X dias....só que o usuario que deve definir esse X...então fiz assim!

_____________________________

procedure aviso;
var
datainicial : TDatetime;
intervalo : integer;
begin
datainicial := strtodate(hoje);
intervalo := strtoint(dias);
if ((trunc(date - datainicial) MOD intervalo) = 0) then
try
Application.CreateForm(TMainform,Mainform);
MainForm.Showmodal;
finally
FreeAndNil(MainForm);
end

end;

___________________________

O maior problema é o seguinte....coloquei dois Edits que o usuario coloca o dia de hoje e daqui quanto tempo deseja receber o aviso(Mainform)....então cries as variaveis 'hoje' e 'dias' para receber estes, só que esta dando erro, quando executo o programa aparece a mensagem data não valida....

Qual seria a forma certa de fazer isso???

Desde já agradeço!!

Abrass...

[Merephet]

datainicial := strtodate(hoje); o hoje é uma var que foi populada pela função que pega a data do sistema?

E qual é a mesagem de erro pois pode ser erro de conversão.