Девочки, тут есть кто-то кто хоть что-то понимает в программе Lazarus? Племянница просит помочь а я…

unit Unit2;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm2 }

TForm2 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

public

end;

var

Form2: TForm2;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);

var a, b, x:real;

begin

a := StrToFloat(Edit1.Text);

b := StrToFloat(Edit2.Text);

x:= a - b;

Label1.Caption := FloatToStr(x);

end;

end.

Что пишет «ошибка» ? Или может код номерной выдаёт ? Ну типо Error 580...