Agendamento automático

Bom Dia Pessoal!

Estou com problemas na soma de um TDateTime com Int...aí vai o código, se alguém puder me ajudar...

procedure TfrmCadastro.spdbtnGravarClick(Sender: TObject);
var
xDataAgenda: TDateTime;
begin
if StrToDateTime(mskedtDATAINICIAL.Text) >= Today then
begin
xDataAgenda := IncDay(StrToDateTime(mskedtDATAINICIAL.Text), StrToInt(edtINTERVALO.Text));
ShowMessage(DateTimeToStr(xDataAgenda));
end
end;

OBRIGADO!

[b:413b70bd13]Título editado conforme as regras de conduta. Favor não postar com caixa alta.[/b:413b70bd13]