циклы ты и сам умеешь, значит проблема только в переводе
PHP код:
one
один
two
два
three
три
PHP код:
function translate(word: string; dict: TStrings): string;
var i: integer;
begin
i := dict.IndexOf(word);
if i = -1 then result := word else
result := dict[i + 1];
end;
PHP код:
Caption := translate(Edit1.Text, Memo1.Lines)