[[escafandra]]

Pasa uno por referencia, por ejemplo Anno:

String Persona::BuscarSexo(String Sexo, int &Anno)
{
   .........
   Anno=Form2->ADOQueryBuscarPadres->FieldByName("Anno")->AsInteger;
   return Form2->ADOQueryBuscarPadres->FieldByName("CI")->AsString; 
}

Saludos.