Probleme mit Tastendruck simulieren

[Meneldur]

Hi,
ich möchte ein Programm schreiben, welches verschiedenste Tastatureingaben simuliert. Das funktioniert auch eigentlich ziemlich gut, allerdings gelingt es mir nicht, das Markieren eines Wortes zu programmieren. Ich möchte den Tastendruck Strg+Shift+Rechts benutzten, um das Wort zu markieren (um es dann später in die Zwischenablage einzufügen). Der Cursor steht bereits an der richtigen Stelle und der Code sieht so aus:

Delphi-Quellcode:

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,1), 0, 0 );
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,1), 0, 0 );
keybd_event(VK_RIGHT, MapVirtualKey(VK_RIGHT,1), 0, 0 );
keybd_event(VK_RIGHT, MapVirtualKey(VK_RIGHT,1), KEYEVENTF_KEYUP, 0 );
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,1), KEYEVENTF_KEYUP, 0 );
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,1), KEYEVENTF_KEYUP, 0 );

Das Problem muss irgendwie beim Shift+Right liegen, weil er auch nur ein einziges Zeichen nicht markiert bekommt. Hat jemand ne Idee woran das liegt? Die anderen Tastendrücke im Programm werden problemlos simuliert.