Проблема с keybd_event

[Tip.the.besT]

var
s:string;
  I: Integer;
begin
s:='Nik';
sleep(3000);
 for I := 1 to length(s) do
 begin
 keybd_event(Ord(s[i]), 0, 0, 0);
 keybd_event(Ord(s[i]), 0, KEYEVENTF_KEYUP, 0);
 end;
 end;
end.

Данный код выводит следующие - т9+. А если просто вписываю буквы, то всё нормально. Я так понимаю строку здесь использовать нельзя? Тогда какой тип использовать?