Activer un Button

Salut tout le monde,
Je veux savoir comment Activer un Button quand un Edit est rempli et le contraire, comment le désactiver quand le Edit est vide
Merci...

en utilisant l'evenement OnChange du TEdit
activer le bouton ou non selon le contenu du tedit

Code:

---

1 2 3 4 5

procedure TForm3.Edit1Change(Sender: TObject); begin Button1.Enabled := Trim(TEdit(Sender).Text) <> EmptyStr; end;

---

ça n'as pas marché

Est-ce à dire que le statut du bouton n'était pas le bon après changement de la valeur de l'Edit ?
Ou que ce statut ne reflétait pas la valeur du TEdit, à un moment donné, sans qu'elle ait changé ?
Dans ce dernier cas, comment est remplie la valeur Text du TEdit ? Par une méthode qui ne déclenche pas son OnSchange ?