[Angel.Matilla]

Tengo un formulario en un proyecto en BCB 6 con esto:

#include <vcl.h>
#pragma hdrstop

#include "MenInt.h"
#include "Persona.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma resource "*.dfm"
TfMenInt *fMenInt;

extern AnsiString cAux, NombreUser;
extern bool lPrueba;
extern int LinEje;
extern TDateTime dFecha;
extern TListItem *pItem;
extern TReplaceFlags oReplace;

extern void ColorForm(TForm *Form);
extern int Mensaje(int Icono, AnsiString Mensaje, AnsiString Botones);

He destacado una función, que uso absolutamente en todos los formularios del proyecto (58 en total) y en todos ellos está declarada exactamente igual como es lógico.

También en todos la uso exactamente de la misma forma; en este formulario la primera vez que la llamo lo hecho así:

fPersona->Query->Close();
fPersona->Query->SQL->Text = "INSERT INTO Correo (Remite, Destino, Hora, Asunto, Mensaje, Leido) VALUES (:Remite, :Destino, :Hora, :Asunto, :Mensaje, 0)";
fPersona->Query->ParamByName("Remite")->AsString  = NombreUser;
fPersona->Query->ParamByName("Hora")->AsDateTime  = Now();
fPersona->Query->ParamByName("Asunto")->AsString  = Asunto->Text;
fPersona->Query->ParamByName("Mensaje")->AsString = Mensaje->Text;

if (Usuarios->Visible)
{
     lPrueba = false;
     for (nItem = 0; nItem < Usuarios->Items->Count; nItem ++)
          if (Usuarios->Items->Item[nItem]->Checked)
          {
               lPrueba = true;
               try
               {
                    fPersona->Query->Close();
                    fPersona->Query->ParamByName("Destino")->AsString  = Usuarios->Items->Item[nItem]->SubItems->Strings[0];
                    fPersona->Query->ExecSQL();
                    fPersona->Query->Transaction->Commit();
               }
               catch(...)
               {
                    fPersona->Query->Transaction->Rollback();
               }
          }

     if (!lPrueba)
     {
          Mensaje(3, "No ha seleccionado ningún destinatario.", "Volver");     // <---- AQUÍ DA EL ERROR EL COMPILADOR
          return;
     }
}

Pero a la hora de compilar me está dando un error E2314 Call of nonfunction en esa llamada. Y estoy totalmente perdido sobre los motivos ya que SIEMPRE lo hago igual.