Симуляция нажатия правой клавиши мыши для touch screen

[valiko]

Доброе время суток, поставили задачу задействовать 2 клавиши мыши, при работе с сенсорным монитором, то есть при нажатии левой на экране пальцем отрабатывает левая клавиша а нажатие и удерживание - правая, нашел способ только как постоянно подменять эти клавиши. Работает но довольно не удобно: при нажатии проходит нажатие левой клавиши мыши, затем идет смена клавиш, соответсвенно дальше при нажатии идет срабатывание правой клавиши и опять смена клавиш. Есть более элегантные решения? Желательно все так чтобы правая кнопка срабатывала с помощью непродолжительного удержания пальца на мониторе. Вот мой код:

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
  msg: PEVENTMSG;
  key: integer;

begin

if Code >= 0 then begin
    result := 0;
    msg := Pointer(LParam);

        with Form1 do
        case msg.message of
        WM_LBUTTONDOWN: begin
        if i=0 then
      CheckBox1.Checked := true;
      SwapMouseButton(true);
      color:=clActiveCaption;
      i:=1;
      end;
        WM_RBUTTONDOWN: begin
        if j=0 then
      CheckBox2.Checked := true;
      SwapMouseButton(false);
      color:=clWhite;
      j:=1;
      end;
      WM_LBUTTONUP: begin if a=0 then
      CheckBox1.Checked := false;
      a:=1;
      end;
      WM_RBUTTONUP: begin if b=0 then
        CheckBox2.Checked := false;
        b:=1;
        end;
      end;
    end
    else
    result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;