1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure ControlEin;
var
  Scan: SHORT;
begin
  Scan := MapVirtualKey(VK_CONTROL, 0);

  //TASTE gedrückt halten
  keybd_event(VK_CONTROL, Scan, 0, 0);

  //zB: 5 sec warten
  Sleep(5000);

  //TASTE loslassen
  keybd_event(VK_CONTROL, Scan, KEYEVENTF_KEYUP, 0);
end;					

1:
2:

  //simuliert TASTE gedrückt halten:
  keybd_event(VK_CONTROL, Scan, 0, 0);					

1:
2:

  //simuliert TASTE drücken und loslassen:
  keybd_event(VK_CONTROL, Scan, KEYEVENTF_KEYUP, 0);