[SpectraL]

Что можно сделать чтобы i присваивался IncHour и IncMonth (в отличии от IncHour, у IncMonth формальный параметр ANumberOfMonths имеет тип Integer)?

Код:

var
  Form1: TForm1;
  i: function (const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;

implementation
  {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := IncHour;
  //i := IncMonth;
end;