Почему-то не выводится сообщение в Memo1, но при этом остальные операции работают (кнопки "закрыть" и "печать" работают)

unit Unit1;
interface
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls, Unit2;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  x : Extended;
begin
  x := StrToFloat(Edit1.Text);
  Raschet(Memo1,x);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Print;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
 
end.

unit Unit2;
interface
 
uses SysUtils, StdCtrls;
 
Function form_1(x : Extended) : Extended;
Function form_2(x : Extended) : Extended;
Function form_3(x : Extended) : Extended;
Function form_4(x : Extended) : Extended;
Procedure Raschet(memo1 : TMemo; x : Extended);
 
Const
  a = pi;
  z = 0.1666;
 
implementation
 
Function form_1(x : Extended) : Extended;
begin
  Result := 2*cos(x-pi/6);
end;
 
Function form_2(x : Extended) : Extended;
begin
  Result := 0.5+sqr(sin(a*x));
end;
 
Function form_3(x : Extended) : Extended;
begin
  Result := (1+z*x)/(3+z*x);
end;
 
Function form_4(x : Extended) : Extended;
begin
  Result := exp(x*ln(3))/sqrt(x);
end;
 
Procedure Raschet (memo1:TMemo; x : Extended);
Var
  St : String;
  vibor : Byte;
begin
  if x > a*z then
    vibor := 1
  else
    if x >= a*z-0.1 then
      vibor := 2
    else
      if x < a*z-0.1 then
        vibor := 3
      else
        if x = a*z then
          vibor := 4;
 
  Case vibor of
    1: St:='При x>az расчет по формуле1 =' + FloatToStrF(Form_1(x),fffixed,6,4);
    2: St:= 'При x>= az-0,1 расчет по формуле2 = '+ FloatToStrF(Form_2(x),fffixed,6,4);
    3: St:= 'При x < az-0,1 расчет по формуле2 = '+ FloatToStrF(Form_3(x),fffixed,6,4);
    4: St:= 'При x = az расчет по формуле2 = '+ FloatToStrF(Form_4(x),fffixed,6,4);
  end;
  Memo1.Lines.Add(St);
end;
 
end.