//----main.h--------------------------------
class TPingThread : public TThread
{
	__published:
	private:
	protected:
	public:
		void __fastcall CreateControls();
		void __fastcall Execute();
		void __fastcall tmrTimer(TObject *Sender);
};
TPingThread *PingThread;

//----main.cpp----------------------------
void __fastcall TPingThread::CreateControls()
{
	TTimer *NewTimer = new TTimer(NULL);
	NewTimer->OnTimer = TPingThread::tmrTimer;
	NewTimer->Interval = 1000;
	NewTimer->Enabled = true;
	NewTimer->Name = "tmr";

}
//---------------------------------------------------------------------------
void __fastcall TPingThread::tmrTimer(TObject *Sender)
{
       ShowMessage("Ok");
}