keybd_event обрабатывается не правильно, в чем дело?

[zotox]

 for i:=1 to 32 do
  begin
    s:=Memo1.Lines.Strings[m];
    //пусть m будет - 0
    keybd_event(ord(s[i]), 0,0,0);
    keybd_event(ord(s[i]), 0,KEYEVENTF_KEYUP,0);
  end;

Что мемо:
2142f739ba514095049b905188e4cbcd

Результат такой:
21426739215140950492905188543234

(Вместо букв пишутся цифры)(Т.е. видно по красным отметкам)
Почему так происходит и как это исправить? (однако если регистр букв изменить на высший то будут выводится мелкие буквы а не цифры (знаю проблема была у многих с подобным))

[notHaker]

http://www.programmersforum.ru/showthread.php?t=6074

там обсуждается проблема... не флаги ли мозги пудрят?

[Gerzs]

С маленькими буквами проблема:

var
S:string;
i:integer;
begin
s:=AnsiUpperCase(Form11.Memo1.Lines.Strings[0]);
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;

[zotox]

Сообщение от Gerzs

С маленькими буквами проблема:

var
S:string;
i:integer;
begin
s:=AnsiUpperCase(Form11.Memo1.Lines.Strings[0]);
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;

О, респект