Закон Ома

if (RadioButton1.Checked) then
if (edit2.text='') then 
begin
U:=strtoint(edit1.text);
R:=strtoint(edit3.text);
 I:=U/R;
label4.Text:=inttostr(I); или ShowMessage(inttostr(I)); 
end
else 
if (RadioButton2.Checked) then
if (edit1.text='') then
begin
I:=strtoint(edit2.text);
R:=strtoint(edit3.text);
 U:=I*R;
//здесь вывод
end

var
  I, U, R: double;
 
......
 
begin
  if RadioButton1.Checked then //допустим здесь посчитать Ток, его вывести в Edit1
  begin
    try
      U := StrToFloat(EDit2.Text);
      R := StrToFloat(Edit3.Text);
      I := U/R;
    except
    end;
    Edit1.Text := FloatToStr(I);
  end else
  if RadioButton1.Checked then //допустим здесь посчитать Напряжение, его вывести в Edit2
  begin
    try
      I := StrToFloat(EDit1.Text);
      R := StrToFloat(Edit3.Text);
      U := I*R;
    except
    end;
    Edit2.Text := FloatToStr(U);
  end else
  begin
    try
      U := StrToFloat(EDit2.Text);
      I := StrToFloat(Edit1.Text);
      R := U/I;
    except
    end;
    Edit3.Text := FloatToStr(R);
  end;
end;