Разветвляющийся алгоритм (delphi7)

[Smile_Prog]

Помогите пожалуйста, нужно решить задачу с разветвляющимся алгоритмом и сделать вывод результата в Memo.
Вроде все работает, кроме вывода результата - выдает ошибку "constant expression expected"
Вот мой код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
  Memo1.Lines.Add('Результаты');
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,u: extended;
begin
 // Ввод исходных данных и их вывод в окно Memo1
     x:=StrToFloat(Edit1.Text);
        Memo1.Lines.Add(' x='+Edit1.Text);
     y:=StrToFloat(Edit2.Text);
        Memo1.Lines.Add(' y='+Edit2.Text);
     // Проверка номера нажатой кнопки и выбор соответствующей ей функции

      case RadioGroup1.ItemIndex of
      0: u:=sqr(sinh(x))+sqr(y)+sin(y);
      1: u:=sqr(sqr(x)-y)+cos(y);
      2: u:=sqr(y-exp(x)+sin(y)/cos(y));
       Memo1.Lines.Add('u='+FloatToStrF(u, ffFixed,8,2));

         end;


end;

end.

Что не так?

[whatever]

Memo1.Lines.Add('u='+FloatToStrF(u, ffFixed,8,2)); и end; местами поменяй:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,u: extended;
begin
 // Ввод исходных данных и их вывод в окно Memo1
     x:=StrToFloat(Edit1.Text);
        Memo1.Lines.Add(' x='+Edit1.Text);
     y:=StrToFloat(Edit2.Text);
        Memo1.Lines.Add(' y='+Edit2.Text);
     // Проверка номера нажатой кнопки и выбор соответствующей ей функции

      case RadioGroup1.ItemIndex of
        0: u:=sqr(sinh(x))+sqr(y)+sin(y);
        1: u:=sqr(sqr(x)-y)+cos(y);
        2: u:=sqr(y-exp(x)+sin(y)/cos(y));
      end;
      Memo1.Lines.Add('u='+FloatToStrF(u, ffFixed,8,2));

end;

[Smile_Prog]

спасибо )