小弟刚学Delphi 希望前辈门帮我解决这个问题

procedure TSGAccountPeriodEditExplorer.AppendAllPeriods(AYear: Integer);
var
  i: Integer;
  iYear, iPeriod: Integer;
  dDate: TDateTime;
begin
  FPrimaryDataSet.DisableControls;
  try
    for i := 1 to 12 do
    begin
      Self.New;
      if i < 10 then
      begin
        FPrimaryDataSet.FieldByName('FCode').AsString := IntToStr(AYear) + '-0' + IntToStr(i);
        FPrimaryDataSet.FieldByName('FName').AsString := IntToStr(AYear) + '-0' + IntToStr(i);
      end
      else
      begin
        FPrimaryDataSet.FieldByName('FCode').AsString := IntToStr(AYear) + '-' + IntToStr(i);
        FPrimaryDataSet.FieldByName('FName').AsString := IntToStr(AYear) + '-' + IntToStr(i);
      end;
      FPrimaryDataSet.FieldByName('FYear').AsInteger := AYear;
      FPrimaryDataSet.FieldByName('FPeriod').AsInteger := i;
      FPrimaryDataSet.FieldByName('FF_RefDate').AsDateTime := StartOfAMonth(AYear, i);
      FPrimaryDataSet.FieldByName('FT_RefDate').AsDateTime := DateOf(EndOfAMonth(AYear, i));在得到结束日期的时候报错,无法转换型变种（零）到式（整数）,我现在是想得到这个AYear(年)i(月)的最后一天怎么求啊?
      FPrimaryDataSet.FieldByName('FActive').AsInteger := 0;
      FPrimaryDataSet.Post;
    end;