Ошибка с Banner-> LoadAd (); функция

Я знаю, что не совсем связан с C ++, но у меня возникли небольшие проблемы при вызове функции с именем LoadAd ().
Я пытался использовать эту функцию в таймер в OnTimer, в таких событиях, как OnFormShow и OnFormCreate (да, я знаю, что не может быть в этой функции, но я пытался). Однако приложение всегда получает FC (принудительно закрывается) при выполнении этой функции … Есть ли решение для этого?

Вот часть моего кода:

void __fastcall TfrmPrincipal::FormCreate(TObject *Sender)
{
// This defines the default active tab at runtime
abasPrinc->ActiveTab = abaDisp;
Auto = false;
Manual = false;
SEM_AD = false;

ad1->AdUnitID = "SECRET";
ad2->AdUnitID = "SECRET";

}

а также:

void __fastcall TfrmPrincipal::FormShow(TObject *Sender)
{
ad1->LoadAd();
ad2->LoadAd();
}

Заявление (Principal.h)

// ———————————————— —————————

#ifndef PrincipalH
#define PrincipalH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
#include <FMX.ActnList.hpp>
#include <FMX.Gestures.hpp>
#include <FMX.StdCtrls.hpp>
#include <FMX.TabControl.hpp>
#include <FMX.Types.hpp>
#include <System.Actions.hpp>
#include <FMX.ListView.hpp>
#include <FMX.ListView.Types.hpp>
#include <FMX.MultiView.hpp>
#include <FMX.Advertising.hpp>
#include <FMX.Layouts.hpp>
#include <FMX.ListBox.hpp>
#include <FMX.Objects.hpp>
#include <FMX.Memo.hpp>
//---------------------------------------------------------------------------
class TfrmPrincipal : public TForm
{
__published:    // IDE-managed Components
/* ...  */

TBannerAd *ad1;
TBannerAd *ad2;

/* ...  */

void __fastcall FormCreate(TObject *Sender);
void __fastcall FormKeyUp(TObject *Sender, WORD &Key, System::WideChar &KeyChar,
TShiftState Shift);

/* ...  */

void __fastcall FormShow(TObject *Sender);

/* ...  */private:    // User declarations
public:     // User declarations
__fastcall TfrmPrincipal(TComponent* Owner);
void adaptar();
int Num(unsigned char caractere);
void RedefInicio ();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmPrincipal *frmPrincipal;
//---------------------------------------------------------------------------
#endif

Так как теперь спасибо много.