Type TClassesInfo = Class(TObject) Public TABLENAME: String; IMAGEINDEX: Integer; pCLASS: String; LanguageINDEX: Integer; TotaLPages: Integer; End;