Como simular um clique

{1 - Insira um ListBox e preencha-o com alguns itens;

2 - Insira um botão qualquer;

3 - No evento OnDblClick do ListBox, digite:}

Button1.Perform(WM_LBUTTONDOWN, 0, 0);