Invalid floating point operation

unit Programma;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Img2: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
mash=300;
 var
 T,Rp, Rsh,n, x0,y0, An: Integer;
 x,y: Real;
 Ith,Io,q,k, I1: Real;
begin
//считываем коэффициенты
     T:= StrToInt(Edit1.Text);
     Rp:= StrToInt(Edit2.Text);
     Rsh:= StrToInt(Edit3.Text);
//находим центр
     x0:=img2.Width div 2;
     y0:=img2.Height div 2;
//рисуем оси
  with img2.Canvas do
  begin
  Pen.Color:=clGreen;
  Pen.Width:=2;
  MoveTo(x0,0);
  LineTo(x0,ClientHeight);
//гориз.ось
  MoveTo(0,y0);
  LineTo(ClientWidth,y0);
  end;
//Вводим данные
  Ith:=0.5;        // ток, протекающий через переход фотодиода (световой ток)
  Io:=1/exp(10*ln(10));  // обратный ток насыщения (темновой ток) (А)
  q:=1.601*1/exp(19*ln(10));   // заряд электрона
  n:=1;       // коэффициент идеальности
  An:=2;  // эмпирический показатель
  k:=1.3806488*1/exp(23*ln(10));      // постоянная Больцмана (Дж/К)
  I1:=0.5;   // выходной ток нагрузки (А)
//рисуем график
img2.Canvas.Pen.Color:=clRed;
img2.Canvas.Pen.Width:=1;
    x:=-10;
    y:=-(Ith-Io*(exp(q*(x+(I1*Rp))/(n*k*T*An))-1)-(x/Rsh));
      img2.Canvas.MoveTo(Trunc(x),Trunc(y));
  repeat
    x:=x+0.1;
    y:=-(Ith-Io*(exp(q *(x+(I1*Rp))/(n*k*T*An))-1)-(x/Rsh));
      img2.Canvas.LineTo(Trunc(x*mash)+x0,Trunc(y*mash)+y0);
  until x>=10;
 
end;
 
end.