Нужно рассчитать доход, но вылезает ошибка

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TForm2 = class(TForm)
    Label1: Label;
    Label2: Label;
    Label3: Label;
    Button1: Button;
    Edit1;
    Edit2;
    procedure TLabel1Click(Sender: TObject);
    procedure TButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.TButton1Click(Sender: TObject);
begin
 sum,pr: real;
 srok: integer;
 dohod,sum2: real;
 begin
   if (Length(TEdit1.Text)=0) or (Length(TEdit2.Text)=0) then  begin
   Tlabel3.Font.Color:=clMaroon;
   end
   else begin
     sum:=strtofloat(TEdit1.Text);
     srok:=strtofloat(TEdit2.Text);
     case srok of
     1..3: pr:=9.5;
     4..6: pr:=11;
     7..12: pr:=12.5;
     13..24: pr:=14;
     else pr:=18;
     end;
     dohod:= sum * (pr/100/12)*srok;
     sum2:= sum + dohod;
    TLabel3.Font.Color:=clNavy;
    TLabel3.Caption:='Сумма: '+ FloattostrF(sum,ffcurrency,6,2)+#10+
    'Процент годовых'+ Floattostrf(pr,ffNumber,2,2)+#10+
    'Доход:'+ Floattostrf(dohod,ffCurrency,6,2)+#10+
    'Сумма в конце срока: '+ Floattostrf(sum2,ffCurrency,6,2);
 
   end;
 end;
end;