пишет что я делю на ноль в формуле B:= !!!где и что не так?

вот код : unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
U=27;
R=28;
d=0.22;
k=0.35 ;
var
Form1: TForm1;
A,B:real;
x,y:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
A:=(power(R,1/3)*((x-5)/(d+u)))/(R+abs((y-u)/k));
B:=5*d-sqr(A/(r*x))+(r+ln(u+power(d,-1))-ln(10))/(exp(k)-y);
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
label1.caption:=floattostr(A);
label2.caption:=floattostr(B);
end;
end.