Совсем простенькая программка, про проценты

[ilushka2306]

Не хочет считать проценты sum:=((s*0.17)+s)
Подскажите, пожалуйста, в чем дело?

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Clear;
  edit2.Clear;
  edit2.Visible := False;
  label3.Visible := False;
  edit3.Clear;
  Tradio.Checked:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  s,k,sum:real;
begin
  s:=StrToFloat(edit1.Text);
  k:=StrToFloat(edit2.text);
  begin
  if  TRadio.Checked = False then
      sum:=((s*0.17)+s)
  else
    sum:=k*((s*0.17)+s);
  end;
  Edit3.Text:=(FloatToStr(sum));
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9'];
begin
if not (Key in Digit) then
 Key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9'];
begin
if not (Key in Digit) then
 Key:=#0;
end;

procedure TForm1.TRadioClick(Sender: TObject);
begin
  label3.Visible:=True;
  edit2.Visible:=true;
end;

end.

[Stilet]

А как проявляется ошибка?

[ilushka2306]

[Stilet]

s:=StrToFloatDef(edit1.Text,0);

И так далее.
По крайней мере ошибку выбивать не будет.
Ну и конечно же вводи правильное число в Эдиты

[Наки]

В обсчем, оно ругается при преобразовании типов в строке k:=StrToFloat(edit2.text);
Зачем ты очищаешь и прячешь Edit2 в процедуре TForm1.Button1Click? Потому и выводится ошибка. Пустая строка в тип real не переводится!