procedure SetAsString(const Value: string); override;