1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  KeyState: TKeyboardState;
  NewKeyState: TKeyboardState; 
  I: Integer;
begin
  ...
  GetKeyboardState(KeyState);                                 // Sichern des aktuellen Zustands
  for I := Low(NewKeyState) to High(NewKeyState) do            // löschen aller nicht beötigten Tasten-
    NewKeyState[I] := 0;                                      // zustände
  NewKeyState[VK_SHIFT] := $81;                               // z.B., wenn [Shift] + [Taste]
  NewKeyState[VK_GewuenschteTaste]] := $81;                   // Taste, die gredrückt werden soll
  SetKeyboardState(NewKeyState);                              // "neuen" Zustand setzen
  try
    SendMessage(Handle, WM_KEYDOWN, VK_GewuenschteTaste, 1);  // Tastendruck simulieren
    SendMessage(Handle, WM_KEYUP, VK_GewuenschteTaste, 1);    // Taste auch wieder loslassen!
  finally
    SetKeyboardState(KeyState);                               // alten Zustand wiederherstellen
  end;
  ... 
end;                    

1:
2:

keybd_event(Ord('T'), 0, 0,               0);
keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0);