If you use "hard-coded" strings or string constants you need to add them to the Translation Data of corresponding TsiLang component. The easiest way to do it is using TsiLang Expert. Let's suppose you work with "Form1" and this form alredy has a TsiLang component:

1. Launch the TsiLang Expert (Ctrl+L) and select "Form1" in the list view;
2. Click the expert menu "File|Source|With form...". All "hard-coded" strings will be added to the "Strings" property of its TsiLang component. And your code will be modified like this:

3. Open the Translation Editor for the siLang1 and enter translations.
4. You may also wish to translate the button captions (in this case "OK" and "Cancel"). Then replace usual "MessageDlg" with the corresponding method of TsiLang, that is just replace

Quote:

if MessageDlg(...

with this:

Quote:

if siLang1.MessageDlg(...

and provide translations for the "Dialogs" property of the TsiLang component.