как создать на форме?

[Azart11]

помогите пдиз,как создать на форме:
void __fastcall TForm1::DrawArrow(TObject *Sender);
void __fastcall TForm1::DrawApple(TObject *Sender);
void __fastcall TForm1::Shot(TObject *Sender).

[Azart11]

[C++ Error] Unit1.cpp(26): E2316 '_fastcall TForm1::DrawApple(TObject *)' is not a member of 'TForm1'

[LynXzp]

похоже это функции которые описываются в .h файле:

void __fastcall DrawArrow(TObject *Sender);

И присутствуют в cpp файле

void __fastcall TForm1::DrawArrow(TObject *Sender)
{
...
}

[Azart11]

Вот этой программа:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int start=100;          
const int len=100;    
const int dx = 10;     
const int x=500,y = 100; 
const int rad=30;      

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::drawApple(TObject *Sender)
{
Canvas->Brush->Color = clRed;
Canvas->Pen->Color = clRed;
Canvas->Ellipse(x-rad,y-rad,x+rad,y+rad);
Canvas->Ellipse(x-rad-12,y-rad,x+rad-12,y+rad);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::drawArrow(TObject *Sender)
{

Canvas->Pen->Color = clBlack;
Canvas->MoveTo(start,y);
Canvas->LineTo(start,y-10);
Canvas->LineTo(start+10,y);
Canvas->LineTo(start,y+10);
Canvas->LineTo(start,y);
Canvas->LineTo(start-len,y);

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        drawApple(Form1);           

        drawArrow(clWhite);  

        start+=dx;             

        drawArrow(clBlack);     

        if(start==(x-50))           
        {
                Timer1->Enabled = false;
                ShowMessage("Попасть в яблочко!!!");
        }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Shot(TObject *Sender)
{
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Timer1->Interval=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------

[LynXzp]

ругается на
void __fastcall TForm1::drawArrow(TObject *Sender) ???

пропиши в h файле (внизу под кодом вкладка)

public:		// User declarations
   void __fastcall drawArrow(TObject *Sender);