Program example;
var
itemId,i,id : integer;
cmdNext : command;
cmdQuit : command;
name : string;
slovo1,slovo2:array [0..1] of string;
procedure loading;
begin
i:=0;
slovo1[i]:='Привет';slovo2[i]:='Hello'; i:=i+1;
end;
begin
loading;
ShowForm;
itemId := FormAddTextField('Введите слово', '', 20, TF_ANY);
cmdNext := CreateCommand('ОК', CM_OK, 1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
name := FormGetText(itemId);
for i:=0 to 1 do if slovo1[i]=name then begin id:=i; break; end;
ShowCanvas;
DrawText(slovo2[id], 0, 0);
Repaint;
cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.
slovo1,slovo2:array [0..1] of string; здесь указываем сколь слов.
вот код. кому помогло жмите
полезно!