[Raskolnikov]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.RadioButton1.Checked=true then                //когда галочка на первом
    begin
      x:=strtoint(Form1.Edit1.Text);
      y:=(200-14*x*x)/8;
      if y>=0 then                                       //проверка на знак радикала
        Label1.Caption:=Format('%1.2f', [sqrt(y)])       //условие на вывод только двух знаков после запятой
      else
        Form1.Label1.Caption:=('Нет корней');

       ListBox1.Items.Add(Format('%1.2f - %1.2f', [y, x])) //Выводим в ListBox1
    end
  else                                                   //когда галочка на втором
    begin
      y:=strtoint(Form1.Edit1.Text);
      x:=(200-8*y*y)/14;
      if x>=0 then                                       //проверка на знак радикала
        Label1.Caption:=Format('%1.2f', [sqrt(x)])
      else
        Form1.Label1.Caption:=('Нет корней');

     ComboBox1.Items.Add(Format('%1.2f - %1.2f', [x, y]));  //Выводим в ComboBox1
    end;
end;