А что мешает делать так
Код:
...
for i := 1 to Length(Text) do
PostMessage(handle, WM_KeyDown, Ord(Text[i]), 0);
...
главное не забыть отжать клавишу, в смысле слать подобное, но только с WM_KeyUp
З.Ы. Ещё можно вот это попробовать
Код:
...
PostMessage(handle, WM_SETTEXT, Length(Text), Integer(@Text[1]));
...