На что у меня вылезает ошибка в Delphi???

код:
procedure TForm1.Button3Click(Sender: TObject);
var r,k,r1,r2: real;
begin
r1 := StrToFloat(Edit1.Text);
r2 := StrToFloat(Edit2.Text);
if RadioButton1.Checked
then r:= r1+r2
else r:= (r1*r2)/(r1+r2);
if r < 1000
then Label9.Caption :='Сопротивление электрической цепи равно '+FloatToStrF(r,ffFixed,3,2)+' Ом'
else
begin
k:=r/1000;
Label9.Caption :='Сопротивление электрической цепи равно '+FloatToStrF(k,ffFixed,6,2)+' кОм';
end;
end;

Компилятор все пропускает нормально, как запускаю программу ввожу значения и жму кнопку вылетает такая ошибка, я не могу понять на что именно она ругается-_-

ааааааа Спасибо^^ ступила: D