Cerrar formulario

[Angel.Matilla]

Para probar que un código es correcto estoy forzando que tenga lugar un error al ejecutar un query en FB.

void __fastcall TfLisCar::FormCreate(TObject *Sender)
{
     Query->Close();
     Query->SQL->Text = "SELECT DISTINCT Codigo, Nombre Ls02 WHERE CodPrv = 45 ORDER BY Nombre, Codigo";
     try
     {
          Query->Open();
     }
     catch(Exception *Exc)
     {
          ShowMessahe(Exc->Message);
          this->Close();
          return;
     }
}

Es evidente que el query va a dar error porque falta el FROM. Mi problema es que aunque salta la excepción y se muestra el mensaje de error el formulario no se cierra y no soy capaz de encontrar la razón.