[Angel.Matilla]

Button2Click(NULL) es esto:

void __fastcall TfGenRec::Button2Click(TObject *Sender)
{
     if (RadioGroup1->Enabled)
          this->Close();
     else
     {
          FormCreate(NULL);
          MaxFec->OnExit = FechaExit;
          MinFec->OnExit = FechaExit;
     }
     return;
}

Y Mensaje es una función que crea un formulario que muestra mensajes de aviso y botones de selección. Es un poco complejo pero tampoco ahí hay ninguna llamada a un TLIstView.