Delphi et Composant DxfExpressionExplorer

Saluttttt tout le monde;
j'utilise le composant DxfExpressionExplorer de Devexpression mais je pense que le principe est le même .

Pour Commencer on doit déclarer les variables et leur chemin de données dans l’événement OnConvertWord.
Exemple:

Code:

---

1 2 3 4 5 6 7

procedure TFrm_Traitement.ExpPaieConvertWord(Sender: TObject; var CurrentWord: String);   begin if CurrentWord = 'NBJ' then CurrentWord := IntToStr(enbj.value); end;

---

Mais sachant que les variables changes d'un salariés à un autre alors j'ai préféré généré cette partie automatiquement mais le problème qui se pose une fois la chaine construite:
exemple: Générer automatiquement est placé dans un memo

Code:

---

1 2 3 4

if CurrentWord = 'NBJ' then CurrentWord := IntToStr(enbj.value); if CurrentWord = 'VPRI' then CurrentWord := IntToStr(etpri.value); if CurrentWord = 'VTRSS' then CurrentWord := IntToStr(etretss.value); if CurrentWord = 'VRETJA' then CurrentWord := IntToStr(etretJA.value);

---

Comment faire pour l’affecter à l’événement OnconvertWord automatiquement

Code:

---

1 2 3 4 5 6

procedure TFrm_Traitement.ExpPaieConvertWord(Sender: TObject; var CurrentWord: String);   begin ......... Inséré le résultat généré end;

---

Cordialement