вызвал класс исключения 'external: SIGFPE'

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  var  x,y,b:real;
  s:string;
  code:integer;
begin
  val(Edit1.Text, x, code);
  if(code <> 0) then Label4.Caption:='Ошибка ввода исходных данных!';
  val(Edit2.Text, y,code);
  if(code <> 0) then Label4.Caption:='Ошибка ввода исходных данных!'
  else begin
    b:= (1+abs(y-x)+sqrt(y-x)*(2*y));
    str(b:6:3,s);
    Label4.Caption:='Решение b='+s;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label4.Caption:='';
Edit1.Text:='';
Edit2.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var  x,y,b:real;
     code:integer;
begin
  val(Edit1.Text, x, code);
  if code <> 0 then
    begin
      showmessage('Неверно введено Х');
      Edit1.Clear;
      Edit1.SetFocus;
      exit;
    end;
  val(Edit2.Text, y,code);
  if(code <> 0)or(y<x) then
    begin
      showmessage('Введите Y>='+formatfloat('0.000',x));
      Edit2.Clear;
      Edit2.SetFocus;
      exit;
    end;
  b:= (1+abs(y-x)+sqrt(y-x)*(2*y));
  Label1.Caption:='Решение b='+formatfloat('0.000',b);
end;