Source position: StyleUn.pas line 279
public function TStyleList.AddObject(
const S: ThtString;
AObject: TObject
):Integer; override;