TAA= class(TObject)
  private
    i: integer;
  public
    constructor Create(ii: integer);
    destructor Destroy; override;
    procedure show;
  end;    { TAA }
constructor TAA.Create(ii: integer);
begin
  i:= ii;
end;    procedure TAA.show;
begin
  ShowMessage(inttostr(i));
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ObjList.Items[1].show;    //這邊 Error
end;