[Alegun]

keybd_event используемая в основе приведенного компонента давно устарела, лучше использовать более современную (поддерживающую юникод) функцию SendInput, она может посылать коды клавиш любому приложению в системе, окну у которого в данный момент находится фокус, возможно вместо компонента SendKeys проще использовать такое:

Код:

procedure snd(ds: string);
var
i: integer;
b: array [0..1] of TInput;
begin
for i:= 1 to length(ds) do
begin
 FillChar(b, SizeOf(b), 0);
 b[0].Itype:= INPUT_KEYBOARD;
 b[0].ki.wScan:= Word(ds[i]);
 b[0].ki.dwFlags:= 4 or 2;
 SendInput(Length(b), b[0], SizeOf(TInput));
 end;
 end;

Поиск адресата для посылок производится стандартным, вышеприведённым способом.