procedure SetCaption(const Value: string); override;