[fide_uci]

me fue muy util este codigo. Era justo lo que necesitaba. Lo unico que con una pequeña modificacion. Por que cuando hacia clic fuera del nombre del elemento en el TreeView no me desplegaba el menu. Asi que le quite ese parametro al Hittest. Como viene a continuacion..

Código Delphi [-]
var
    Ht: THitTests;
    Pt: TPoint;
begin
    //ShowMessage('aa');
    if Button = mbRight then
    begin
        Ht := roster_tree.GetHitTestInfoAt(X, Y);

        {if (htOnItem in Ht) or (htOnIcon in Ht) or (htNowhere in Ht) then
        begin}
            Pt := roster_tree.ClientToScreen(Point(X, Y));
            roster_tree.Selected := roster_tree.GetNodeAt(X, Y);
            if roster_tree.Selected.Level = 1 then
                roster_contact_popup.Popup(Pt.X, Pt.Y)
            else
                roster_group_popup.Popup(Pt.X, Pt.Y);
        //end;
    end;
end;

Muchisimas gracias a todos ustedes que siempre estan ayudando a las personas ggg. Espero poderlos ayudar yo un dia a ustedes.