Модули в Dekphi

[DomiNik]

Есть программа, но не могу понять из-зи чего не хочет работать именно одна кнопка, которая подсчитывает площадь окружности...Будьте добры, проверьте, и подскажите в чем ошибка!!! Буду оччень признателен!!

Вот код программы!

Модуль:
unit Sq;

interface

Function Okr(a:real):real;
function Pryam(a,b:real):real;
function Treug(a,b:real):real;



implementation
function Okr(a:real):real;
begin
Okr:=pi*sqr(a);
end;
function Pryam(a,b:real):real;
begin
Pryam:=a*b;
end;
function Treug(a,b:real):real;
begin
Treug:=a*b/2;
end;
end.

Основная программа:
unit lab3;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
Edit1.Visible:=true;
Edit2.Visible:=false;
Label3.Caption:='Ââåäèòå r';
Label4.Caption:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=2;
Edit1.Visible:=true;
Edit2.Visible:=true;
Label3.Caption:='Ââåäèòå a';
Label4.Caption:='Ââåäèòå b';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
i:=3;
Label3.Caption:='Ââåäèòå a';
Label4.caption:='Ââåäèòå h';
Edit2.Visible:=true;
Edit1.Visible:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
label2.Caption:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
var
a,a1,b,b1:real;
begin
a1:=StrToFloat(Edit1.text);
b1:=StrToFloat(Edit2.Text);
a:=a1;
b:=b1;
if i=1 then
label2.Caption:=FloatToStr(Okr(a1))
else if i=2 then
label2.Caption:=FloatToStr(Pryam(a1 ,b1))
else if i=3 then
label2.Caption:=FloatToStr(Treug(a1 ,b1));

end;

end.

[WhiteSpirit]

Какую ошибку пишет?

[DomiNik]

Project2.exe reised exception class EconvertError with message""is not a valid floating point value. Process stoped..

[WhiteSpirit]

Видимо, при вычислении площади круга в Edit2 ничего не заносится, поэтому при попытке

b1:=StrToFloat(Edit2.Text);

и возникает ошибка.
Надо так:

procedure TForm1.Button4Click(Sender: TObject);
var
a,a1,b,b1:real;
begin
a1:=StrToFloat(Edit1.text);
if i > 1 then b1:=StrToFloat(Edit2.Text);
a:=a1;
b:=b1;
if i=1 then
label2.Caption:=FloatToStr(Okr(a1))
else if i=2 then
label2.Caption:=FloatToStr(Pryam(a1 ,b1))
else if i=3 then
label2.Caption:=FloatToStr(Treug(a1 ,b1));

end;