Ошибки в программе. Delphi

[Linda_Chays]

1) Помогите найти ошибки в коде.
2) Задумывалось как тестирующая программа
3)Пишет ошибку: Incompatible types: 'Integer' and 'Extended'

4) код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;

     procedure Button1Click(sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 procedure TForm1.Button1Click(sender: TObject);

 var
 a,b,c,d,verno, zapor, i:Integer;
 sms1, sms2, sms3, sms4:string;

  begin
  verno:=0;
  zapor:=0;

 for i:=0 to 26 do
 begin
      a:=RandomRange(-1000,1000);
      b:=RandomRange(-1000,1000);
      c:=a+b;

      if (a<0) then sms1:= '('+ FloatToStr(a) + ')' + '+' + FloatToStr(b)+'=';
      if (b<0) then sms1:= FloatToStr(a) + '+' + '(' + FloatToStr(b) + ')' + '=';
      if (a<0) and (b<0) then sms1:= '(' + FloatToStr(a)+ ')' + '+' + '('+ FloatToStr(b)+')' + '=';
      if (a>=0) and (b>=0) then sms1:= FloatToStr(a)+ '+' + FloatToStr(b)+ '=';

          Form1.Label2.Caption:=sms1;

           d:= strToFloat(Form1.Edit1.Text);

          if (d=c) then verno:=verno+1;
          if (d<>c) then
          begin
          zapor:=zapor+1;
          sms2:='Внимание! У вас ошибка! Кол-во ошибок на данный момент:' + FloatToStr(zapor) + 'ош.';
          Form1.Label3.Caption:=sms2;
          end;
          end;

           sms3:= 'Кол-во ошибок' + '  ' + zapor #10 #13 'Кол-во верно решенных уравнений' + '  ' + verno;
           form1.Label5.Caption:=sms3;

           if (zapor<=2) then
           begin
             sms4:= 'твоя оценка 5!' #10 #13 'прекрасно!';
               Form1.Label7.Caption:=sms4;
           end;
            if (zapor<=4) then
            begin
              sms4:= 'ТВоя оценка  4!' #10 #13 'хорошо!';
              Form1.Label7.Caption:=sms4;
            end;
            if (zapor<=6) then
            begin
              sms4:= 'Твоя оценка 3!' #10 #13 'Плохо!';
              Form1.Label7.Caption:=sms4;
            end;
            if (zapor>6) then
            begin
              sms4:= 'Твоя оценка 2!' #10#13 'учись лучше!';
              Form1.Label7.Caption:=sms4;
            end;





 end;

end.

[Sciv]

FloatToStr(a)

У Вас а и иже с ней целого типа, используйте IntToStr