Source position: googlestorage.pp line 660
protected procedure TObject.Setkind(
AIndex: Integer;
const AValue: string
); virtual;