Sprawdzenie stanu Myszki

Mam PopupMenu, które posiada kilka "Itemów". Jeden "Item" ma ustawione Caption na "Dodaj". Utworzyłem zdarzenie OnClick dla tego Itema, czyli mamy tak :

void __fastcall TForm1::Dodaj1Click(TObject *Sender)
{

}

Dobra, lecimy dalej. Jak teraz sprawdzić jakim klawiszem myszki klikneliśmy na ten Item ? Próbowałem tak :

void __fastcall TForm1::Dodaj1Click(TObject *Sender)
{
    if(GetAsyncKeyState(VK_LBUTTON) == true)
    {
        ShowMessage("Lewy") ;
    }
    else if(GetAsyncKeyState(VK_RBUTTON) == true)
    {
        ShowMessage("Prawy") ;
    }
}

Ale jakieś dziwne fazy wychodzą. Cały czas pokazuje mi się "Lewy", chociaż pykam prawym. Parę razy było dobrze, tzn. pykałem lewym miałem "Lewy", pykałem prawym, miałem "Prawy". Od czego to zależy ? Co z tym zrobić, żeby było dobrze ?
Dzięki za jakąkolwiek pomoc !