Поле в классе не изменяет своего значения

TReport = class;
    TReportPage = class(TCollectionItem)
      private
        FLeft: integer;
        FTop: integer;
        FWidth: integer;
        FHeight: integer;
        FReportPage:TImage;
        FCanvas: TCanvas;
        procedure SetLeft(Value: integer);
        procedure SetTop(Value: integer);
        procedure SetWidth(Value: integer);
        procedure SetHeight(Value: integer);
      public
        constructor Create(Collection: TCollection); override;
        destructor Destroy; override;
        property Canvas: TCanvas read FCanvas;
      published
        property Left: integer Read FLeft Write SetLeft;
        property Top: integer Read FTop Write SetTop;
        property Width: integer Read FWidth Write SetWidth;
        property Height: integer Read FHeight Write SetHeight;
    end;

    TReportPages = class(TCollection)
      private
        FReport: TReport;
        procedure SetItem(Index: integer; Value: TReportPage);
        function GetItem(Index: integer): TReportPage;
      public
        function Add: TReportPage;
        constructor Create(AReport: TReport);
        property Items[Index: integer]: TReportPage read GetItem write SetItem; default;
    end;

    TReport = class(TScrollBox)
      private
        FReportPages: TReportPages;
        function ViewPageLetter(S: TInserts; Text: TStream): TStream;
      public
        constructor Create(AOwner:TComponent); override;
        destructor Destroy; override;
        procedure PrintLetters(UserInfo: TIBQuery; LetterStream: TStream;
          PStrukt: PPageStrukt; pFlag: PPrintPreview);
        procedure PrintReport;
      published
        property ReportPages: TReportPages read FReportPages;
    end;

    const
      TopLineMargin: integer = 10;
      LeftLineMargin: integer = 10;
      MarginBetweenPage: integer = 5;

implementation


{ TReportPage }

constructor TReportPage.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  FReportPage:=TImage.Create(TReportPages(Collection).FReport);
  FReportPage.Parent:=TReportPages(Collection).FReport;
  FTop:=FReportPage.Top;
  FLeft:=FReportPage.Left;
  FWidth:=FReportPage.Width;
  FHeight:=FReportPage.Height;
  FCanvas:=TCanvas.Create;
  FCanvas.Handle:=FReportPage.Canvas.Handle;
end;

destructor TReportPage.Destroy;
begin
  FReportPage.Free;
  inherited;
end;

procedure TReportPage.SetHeight(Value: integer);
begin
  if FReportPage <> nil then
  begin
    FHeight:=Value;
    FReportPage.Height:=Value;
  end;
end;

procedure TReportPage.SetLeft(Value: integer);
begin
  if FReportPage <> nil then
  begin
    FLeft:=Value;
    FReportPage.Left:=Value;
  end;
end;

procedure TReportPage.SetTop(Value: integer);
begin
  if FReportPage <> nil then
  begin
    FTop:=Value;
    FReportPage.Top:=Value;
  end;
end;


procedure TReportPage.SetWidth(Value: integer);
begin
  if FReportPage <> nil then
  begin
    FWidth:=Value;
    FReportPage.Width:=FWidth;
  end;
end;