Не получается вызвать функцию!

[Ce4kok]

Собственно вот: имеем 2 unit'a - в одном описана наша функция вычисления интеграла методом Симпсона, а в другом модуле непосредственно уже вызов этой функции.
Почему-то не хочет вычислять и ругается "undeclared identifier 'Simpson'"

Сама функция вычисления методом Симпсона:
unit Unit2;
interface
type
  TFunction = function(x: real): real;
{вычисление определенного интеграла методом Симпсона
 a,b-пределы интеграла, eps-точность решения, Fun-подынтегральная функция}

implementation

function Simpson(Fun: TFunction; a,b,eps: real): real;
var
  i,n: Longint;
  h,s0,s: real;
begin
  n:=1; s:=0;
  repeat
    n:=n*2; h:=(b-a)/n; s0:=s;
    s:=Fun(a)+Fun(b);
    for i:=1 to n-1 do
      s:=s+2*(1+i mod 2)*Fun(a+i*h);
    s:=s*h/3;
  until abs(s-s0) <= eps;
  Simpson:=s;
end; {Simpson}

{подынтегральная функция}
function F(x: real): real; far;
begin
  F:=6*sin(x);
end; {F}
end.

___________________________________ ______________________________

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type

  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure PopupMenu1Popup(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
   uses Unit2;



{$R *.dfm}

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
ComboBox1.AutoComplete := True;
ComboBox1.AutoDropDown := True;
ComboBox1.DroppedDown := True;
ComboBox1.AutoCloseUp := False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

if ComboBox1.ItemIndex=0 then
  begin
    ListBox1.Items.Clear;
    ListBox1.Items.Add('6sin(x)');
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 //тут вызываем функцию
  Label2.Caption := FloatToStr(Simpson(F,1,2,0.025));
  //readln;
end;

end.

[Аватар]

unit Unit2;
interface
//type
//  TFunction = function(x: real): real;
function Simpson(Fun: TFunction; a,b,eps: real): real;
{вычисление определенного интеграла методом Симпсона
 a,b-пределы интеграла, eps-точность решения, Fun-подынтегральная функция}

implementation

function Simpson(Fun: TFunction; a,b,eps: real): real;
...

[Ce4kok]

ну тогда Дэлфи не понимает что такое TFunction

[mss]

А нашиша тебе дался тип TFunction ?
Объявление функц.типа нужно тогда когда адрес точки входа в ф-цию вычисляется в ран-тайм. А у тебя адрес ф-ции известен компилятору уже в момент компиляции..

[Ce4kok]

избавился от TFunction, но всё равно компилятор ругается

[mss]

И уж если таки TFunction нужна для обратного вызова подинтегральной ф-ции с соотв.прототипом из юнита Unit1, то в этом же юните следует объявить эту подинтегральную ф-цию и передать ее адрес при вызове ф-ции Симпсона из юнита 2: