Delphi 7 WinXP

Bonjour,
j'ai cherché dans les forums mais je n'ai pas trouvé la réponse.
Je sais changer les propriétés (Align, BiDi, etc...) et switcher la langue du clavier.

A partir d'infos d'une DB, je change le TFont.Name d'un TEdit mais je ne sais pas faire la relation entre la police et le TLanguages pour changer la langue du clavier.

En fait, je voudrais changer le LoadKeyboardLayout en fonction de la police que j'affecte dynamiquement au TEdit.
Ou, comment construire la liste 'Script' qui figure sur l'interface TFontDialog et qui varie lorsque l'on sélectionne la police ?