Как сравнить числа в Edit (с дробью) и ComboBox с вводом условий в разные ComboBox?

  edt1.Enabled := false;

procedure TForm1.btn1Click(Sender: TObject);
var
  A, B, C: double;
begin
  A := StrToFloat(Edt1.Text);
  B := StrToFloat(Edt2.Text);
  C := A + B;
  edt3.Text := FloatToStr(C) ;
 
  if (c > 6) and (c <= 9) then
  begin
    cbb1.ItemIndex := 0;
    cbb2.ItemIndex := 0; // Группа, 0, 1, 2
  end;
 
  if (c > 9) and (c <= 15) then
  begin
    cbb1.ItemIndex := 0;
    cbb2.ItemIndex := 1; // Группа, 0, 1, 2
  end;
 
  if (c > 15) and (c <= 20) then
  begin
    cbb1.ItemIndex := 1;
    cbb2.ItemIndex := 0; // Группа, 0, 1, 2
  end;
 
  if (c > 20) and (c <= 25) then
  begin
    cbb1.ItemIndex := 1;
    cbb2.ItemIndex := 1; // Группа, 0, 1, 2
  end;
 
  if (c > 25) and (c <= 30) then
  begin
    cbb1.ItemIndex := 1;
    cbb2.ItemIndex := 2; // Группа, 0, 1, 2
  end;
 
  if (c > 30) and (c <= 40) then
  begin
    cbb1.ItemIndex := 2;
    cbb2.ItemIndex := 0; // Группа, 0, 1, 2
  end;
 
  if (c > 40) and (c <= 50) then
  begin
    cbb1.ItemIndex := 2;
    cbb2.ItemIndex := 1; // Группа, 0, 1, 2
  end;
 
  if (c > 50) and (c <= 60) then
  begin
    cbb1.ItemIndex := 2;
    cbb2.ItemIndex := 2; // Группа, 0, 1, 2
  end;
 
end;

function CheckEntry(sNum: String; var x: double): boolean;
var i: integer;
begin
  for i := 1 to Length(sNum) do
    if (sNum[i] = ',') or (sNum[i] = '.') then sNum[i] := DecimalSeparator;
  result := TryStrToFloat(sNum, x);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
  A, B, C: double;
  err_msg: String;
  k: integer;
begin
  err_msg := EmptyStr;
  A := 0; B := 0;
  if not CheckEntry(Edt2.Text, B) then err_msg := 'Не введено/введено неверно число B';
  if not CheckEntry(Edt1.Text, A) then err_msg := 'Не введено/введено неверно число A';
  if Length(err_msg) > 0 then begin
    Application.MessageBox(PChar(err_msg), 'ERROR!!!', MB_ICONERROR);
    Exit;
  end;
  C := A + B;
  Edt3.Text := FloatToStr(C);
 
  if C <= 15 then cbb1.ItemIndex := 0
  else if C <= 30 then cbb1.ItemIndex := 1
         else cbb1.ItemIndex := 2;
 
  case cbb1.ItemIndex of
    0 : if C <= 9 then cbb2.ItemIndex := 0
        else cbb2.ItemIndex := 1;
    1 : if C <= 20 then cbb2.ItemIndex := 0
        else if C <= 25 then cbb2.ItemIndex := 1
               else cbb2.ItemIndex := 2;
    2 : if C <= 40 then cbb2.ItemIndex := 0
        else if C <= 50 then cbb2.ItemIndex := 1
               else cbb2.ItemIndex := 2;
  end;
 
  k := cbb3.Items.IndexOf(Edt3.Text);
  if k = -1 then Form2.ShowModal else cbb3.ItemIndex := k;
end;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    cbb1: TComboBox;
    cbb2: TComboBox;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    cbb3: TComboBox;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure edt1Exit(Sender: TObject);
    procedure edt2Exit(Sender: TObject);
 
  private
    { Private declarations }
    e1, e2: boolean;
  public
    { Public declarations }
  end;
...
implementation
...
 
 
procedure TForm1.edt1Exit(Sender: TObject);
var
  d: double;
begin
  e1 := TryStrToFloat(edt1.Text, d) and (d > 6) and (d < 60);
  btn1.Enabled := e1 and e2;
end;
 
procedure TForm1.edt2Exit(Sender: TObject);
var
  d: double;
begin
  e2 := TryStrToFloat(edt2.Text, d) and (d > 6) and (d < 60);
  btn1.Enabled := e1 and e2;
end;