[[escafandra]]

Trata de esta manera:

Código PHP:

void __fastcall TfSocios::LisSocDblClick(TObject *Sender)
{
     POINT MousePos;
     GetCursorPos(&MousePos);

     if (((PTreeSoc)LisSoc->GetNodeData(LisSoc->FocusedNode))->Socio < 1)
          LisSocMouseDown(NULL, mbRight, TShiftState() << ssRight, MousePos.x, MousePos.y);
} 


Para conocer el valor de TShiftState Shift:

Código PHP:

Shift.Contains(ssRight) 


Saludos.