Ошибка компиляции

#include <vcl.h>
#pragma hdrstop
#include <math>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
typedef double (*TFun)(double);
double fun1(double); //ïðîòîòèïû
double fun2(double); //ôóíêöèé
void Out_Rez(TFun, double, double, double, TMemo*);//ïîëüçîâàòåëÿ
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="3";
Edit3->Text="0,3";
Edit4->Text="3";
Memo1->Clear();
RadioGroup1->ItemIndex=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a, b, h, n;
a = StrToFloat(Edit1->Text);
b = StrToFloat(Edit2->Text);
h = StrToFloat(Edit3->Text);
n = StrToFloat(Edit4->Text);
switch(RadioGroup1->ItemIndex)
{
case 0: Out_Rez (fun1,a,b,h,Memo1); break;
}
}
//---------------------------------------------------------------------------
double fun1(double x){
return 2*(pow(cos(x),2.)-1);}
  void Out_Rez (TFun f,double xn,double xk,double h,TMemo *mem) {
for(double x=xn; x<=xk; x+=h)
Memo1->Lines->Add(" x = "+FloatToStrF(x,ffFixed,8,2)); }

 Out_Rez (TFun f,double xn,double xk,double h,TMemo *mem)