[Alegun]

Вот ещё и однострочный вариант

Код:

...
 for i := 1 to Length(AKeys) do
  SendMessage(h2, WM_CHAR, Word(AKeys[i]), 0);
...