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:

Procedure sendKeyString(uoText: String);
Var
counter : integer;
c : byte;
begin
For counter:= 1 to Length(uoText) do begin
IF (Hi(VkKeyScan(uoText[counter])) = 1) then keybd_Event(VK_SHIFT, $2A, 0, 0);
c := VkKeyScan(uoText[counter]);
keybd_event(c,0, 0,0);
IF (Hi(VkKeyScan(uoText[counter])) = 1) then Keybd_Event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);
end;
end;

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
  case Msg.IdHotKey of
    ID: begin
     MapRandom;
     sendKeyString(
        Form1.label6.caption+', '+
        Form1.label7.caption+', '+
        Form1.label8.caption+', '+
        Form1.label9.caption+', '+
        Form1.label10.caption+
  {ENTER}
    );
  end;
end;