procedure KeyD(key:byte;lp:integer=0);begin PostMessage(a,$0100,key,lp);end;
procedure KeyU(key:byte;lp:integer=0);begin PostMessage(a,$0101,key,lp);end;
...
lpCtrl1:=MapVirtualKey(17,0) shl 16 or 1 ;
lpV1:=MapVirtualKey(ord('V'),0) shl 16 or 1 ;
lpV2:=1 shl 31 or 1 shl 30 or MapVirtualKey(ord('V'),0) shl 16 or 1 ;
lpCtrl2:=1 shl 31 or 1 shl 30 or MapVirtualKey(17,0) shl 16 or 1 ;
...
keyD(17,lpCtrl1);
keyD(17,lpV1);
keyU(17,lpV2);
keyU(17,lpCtrl2);
...