Invalid type cast

Bonjour à tous,

J'ai, sur une forme, tout un tas de TButton.
Pour modifier leurs Caption, j'utilise ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.BD0Click(Sender: TObject); var k:integer; s:string; begin s:=(Sender as TButton).Caption; k:=length(s); if s[k]='0' then s[k]:='1' else s[k]:='0'; (Sender as TButton).Caption:=s; end;

---

qui fonctionne sur les boutons Enable.
Hors, selon les tests de départ, certains boutons deviennent disable.
Je peux cliquer sur ces boutons disable : j'obtiens alors un "Runerror(219)" suivi d'un "Invalid type cast" avec un pointage sur la 1ère ligne de la procédure.
Je ne sais que faire (à part tout ré-écrire différemment).
Merci.

Dimanche, jour du Seigneur, en compagnie de l'Esprit Saint, j'ai entrepris quelques modifications ergonomiques, en me disant que, chemin faisant, je trouverais peut-être quelque chose. Et effectivement, ça a donné à peu près ceci : "Tiens, il y a un évènement OnClick sur ma Form1 !?...Mais...il pointe sur la procédure ! Hou, le méchant évènement OnClick, panpan cucul sur son clicclick."
Tout s'explique. C'est l'erreur bêtasse.

Bonne journée.