1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
var
  Inp: TInput;
  I: Integer;
  Str: string;
begin
  Str := Edit1.text;
  Sleep(4000);
  for I := 1 to Length(Str) do
  begin
    // press
    Inp.Itype := INPUT_KEYBOARD;
    Inp.ki.wVk := Ord(Str[i]);
    Inp.ki.dwFlags := 0;
    SendInput(1, Inp, SizeOf(Inp));

    // release
    Inp.Itype := INPUT_KEYBOARD;
    Inp.ki.wVk := Ord(Str[i]);
    Inp.ki.dwFlags := KEYEVENTF_KEYUP;
    SendInput(1, Inp, SizeOf(Inp));

    Application.ProcessMessages;
    Sleep(80);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Str: string;
  u: SHORT;
begin
  Str := Edit1.text;
  Sleep(1000);
  for I := 1 to Length(Str) do
  begin

    u:=VkKeyScan(Str[i]);

    // press
    if (u and $0100)<>0 then keybd_event(VK_SHIFT, 0, 0, 0);
    if (u and $0200)<>0 then keybd_event(VK_CONTROL, 0, 0, 0);
    if (u and $0400)<>0 then keybd_event(VK_MENU, 0, 0, 0);
    keybd_event(u, 0, 0, 0);

    // release
    keybd_event(u, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);

    Application.ProcessMessages;
    Sleep(50);
  end;
end;