Text mittels Keybd_Event markieren (VK_Shift)

[Cyberstorm]

Ich probiere mit folgendem Code z.B. 3 Zeichen zu markieren.
Nach links geht er dabei jedoch ohne zu markieren :-/

Code:

KeyBd_Event(VK_SHIFT, 0, 0, 0);
for i:=1 to 3 do
  begin
    KeyBd_Event(VK_LEFT, 0, 0, 0);
    KeyBd_Event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0);
  end;
KeyBd_Event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);