procedure Insert(Index: Integer; const S: string); override;