void MiClass::GetAlgo()
{
...
for ( )
{
cadena = .....
Form2->ListBox1->Items->Add(cadena); //con esto me va me va añadiendo las líneas que haga el for
}
if (Form2->ShowModal() == mrOk) //En el Form2 tengo un BitBtn1 con Kind bkOK
{
int num=Form2->ListBox1->ItemIndex;
if (num==1)
{
ShowMessage("algo");
}
if (num == 2)
{
}
}
...
}