[Aristarh Dark]

Очепятка, однако:

Код:

procedure TForm1.btn1Click(Sender: TObject);
  begin
      R:=0;  //к/з
      if (Edt1.Text = '') then 
        begin
          Edt1.SetFocus;
          ShowMessage(' ');
          Exit;
        end;
        R1:=StrToFloat(edt1.text);
   if (Edt2.Text = '') then  
        begin
          Edt2.SetFocus;
          ShowMessage(' ');
          Exit;
        end;
        R2:=StrToFloat(edt2.Text);


    if rb1.Checked then
      if R1+R2=0 then
         begin
         ShowMessage(' ');
         Exit;
         end
      else
         begin
         R:=R1+R2 ;
         end;




   if rb2.Checked then
     if R1+R2=0 then
        begin
        ShowMessage('Одно из значений равно 0');
        Exit;
         end
      else    
       begin
        R:=(R1*R2)/(R1+R2);
        end;
  lbl1.Caption:=FloatToStr(R);
  end;

или, если не опечатка - то непонимание принципа работы программы.