Не работает программа на делфи

[KrSK]

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    MainMenu1: TMainMenu;
    RadioGroup1: TRadioGroup;
    FormCreate:TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

  implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
var
  x,y,z,a,fun: extended;
begin
Memo1.Clear;
x:=StrToFloat(Edit1.text);
Memo1.Lines.Add('x='+edit1.text);
y:=StrToFloat(Edit2.text);
Memo1.Lines.Add('y='+edit2.text);
z:=StrToFloat(Edit3.text);
Memo1.Lines.Add('z='+edit3.text);
case RadioGroup1.ItemIndex of
1:fun:=Sinh(x);
2:fun:=x*x;
3:fun:=Exp(x);
end;

if  CheckBox1.Checked then
function max(x,y,z:real):real;
begin
if (x>y) and (x>z) then max := z
else if (y>x) and (y>z) then max := y
else if (z>x) and (z>y) then max := z;
end;

if (x*y>0) then
a:=sqr(fun+y)-sqrt(fun*y);
else
if (x*y<0) then
a:=sqr(fun+y)-sqrt(abs(fun*y);
else
if (x*y=0) then
a:=sqr(fun+y)+1;
Memo1.Lines.Add('a='+floattostr(a));;
end;

end.

http://s019.radikal.ru/i624/1206/87/0c116d298501.jpg

[veniside]

смело нажимаем на Yes

[KrSK]

В этом коде, куда вводить переменную max?

if CheckBox1.Checked then
function max(x,y,z:real):real;
begin
if (x>y) and (x>z) then max := z
else if (y>x) and (y>z) then max := y
else if (z>x) and (z>y) then max := z;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
  x,y,z,a,fun: extended

;??

[s-andriano]

У Вас здесь вообще неправильная структура. Подпрограммы нельзя описывать в теле других подпрограмм.