Помогите с кодом Delphi

Написал код для кнопки в Delphi, но он почему то не работает... Подскажите в чём ошибка плиз.. .

procedure TForm1.Button1Click(Sender: TObject);
var
a,b: string;
begin
a:=StrToInt(Edit1.text);
if RadioButton1.Checked then
b:=a*1;
if RadioButton2.Checked then
b:=a*0.5;
Edit2.Text:=FloatToStr(b);
end;