Bonjour,
En cherchant à réaliser une procedure réutilisable je tombe sur cette erreur:
(ComponentCount composant non déclaré)
dans le même Form la première passe et la seconde génère l'erreur.

Ps : j'ai déclaré la procedure avant (implementation) procedure Hello();

procedure TMenuPrincipal.BtnHelloClick(Sender: TObject);
  var i: integer;
begin
  for i := 0 to ComponentCount - 1 do  (* <<--  passe sans problème *)
    if Components[i] is TEdit then
    TEdit(Components[i]).Text := 'HELLO !';
end;

procedure Hello();
  var i: integer;
begin
  for i := 0 to ComponentCount - 1 do  (* <<--  ComponentCount composant non déclaré *)
    if Components[i] is TEdit then
    TEdit(Components[i]).Text := 'HELLO !';
end;

Merci d'avance !
@+