Bonjour à tous

J'ai codifié ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
type TFiltreList = Class(TStringList)
   public
      function Add(const S: string): Integer; override;
j'ai alors l'erreur suivante
Error: There is no method in an ancestor class to be overridden: "procedure Add(const ShortString):LongInt;"
je modifie a
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
type TFiltreList = Class(TStringList)
   public
      function Add(const S: string): Integer;
et j'ai un avertissement
Warning: An inherited method is hidden by "procedure Add(const ShortString):LongInt;"
Les deux me semble plutôt contradictoires. Y a-t-il une explication ?