Variablen einer Klasse mittels propertys zur Verfügung stellen

[divBy0]

Gehört nicht in die Klasse TCustomGrafik?

Delphi-Quellcode:

TCustomGrafik = class(TGrafik)
  private
    FAInteger: integer;
  public
    property AInteger: integer read FAInteger write FAInteger;  
  end;