Problem creating Service Application in C++Builder 2006

FM_Principal.cpp
----------------
 
#include "FM_Principal.h"
#include "FM_MiThread.h"
 
#pragma package(smart_init)
#pragma link "LMDAboutDlg"
#pragma link "LMDBaseDialog"
#pragma link "LMDContainerComponent"
#pragma link "LMDCustomComponent"
#pragma link "LMDTrayIcon"
#pragma link "LMDWndProcComponent"
#pragma resource "*.dfm"
 
TGaliciaNova *GaliciaNova;
 
MiThread *MiThread1;
 
__fastcall TGaliciaNova::TGaliciaNova(TComponent* Owner)
	: TService(Owner)
{
}
 
TServiceController __fastcall TGaliciaNova::GetServiceController(void)
{
	return (TServiceController) ServiceController;
}
 
void __stdcall ServiceController(unsigned CtrlCode)
{
	GaliciaNova->Controller(CtrlCode);
}
 
void __fastcall TGaliciaNova::MenuClick(TObject *Sender)
{
	if (Sender == AcercaDe)
    {
		About->Execute();
	}
	else if (Sender == Web)
	{
		ShellExecute(NULL, "open", String("http://www.galicianova.es").c_str(), NULL, NULL, SW_SHOWNORMAL);
	}
	else if (Sender == EMail)
	{
		ShellExecute(NULL, "open", String("mailto:info@galicianova.es").c_str(), NULL, NULL, SW_SHOWNORMAL);
	}
}
 
void __fastcall TGaliciaNova::ContadorTimer(TObject *Sender)
{
	ShowMessage("Contador");
}
 
void __fastcall TGaliciaNova::ServiceStart(TService *Sender, bool &Started)
{
	MiThread1 = new MiThread(false);
//	ServiceThread->Priority = tpIdle ;
	Started = true;
}
 
void __fastcall TGaliciaNova::ServiceContinue(TService *Sender,
	  bool &Continued)
{
	MiThread1->Resume();
	Continued = true;
}
 
void __fastcall TGaliciaNova::ServicePause(TService *Sender, bool &Paused)
{
	MiThread1->Suspend();
	Paused = true;
}
 
void __fastcall TGaliciaNova::ServiceStop(TService *Sender, bool &Stopped)
{
	MiThread1->Terminate();
	Stopped = true;
}
 
void __fastcall TGaliciaNova::ServiceAfterInstall(TService *Sender)
{
	DoStart();
}
 
 
FM_MiThread.cpp
---------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "FM_MiThread.h"
#include "FM_Principal.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall MiThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall MiThread::MiThread(bool CreateSuspended)
	: TThread(CreateSuspended)
{
}
 
void __fastcall MiThread::Execute()
{
//	GaliciaNova->Icono->Active     = true;
//	GaliciaNova->Contador->Enabled = true;
 
	while (!Terminated)
	{
		ShowMessage("THREAD");
		Sleep(5000);
	}
}