Связь двух комбобоксов!!!

[viteyk]

begin
case cbb1.ItemIndex of
0: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*b);
2: edt2.Text:=edt1.Text;
3: edt2.Text:=edt1.Text;
4: edt2.Text:=edt1.Text;
end;
1: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*a);
3: edt2.Text:=edt1.Text;
4: edt2.Text:=edt1.Text;

end;
2: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=edt1.Text;
3: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*c);
4: edt2.Text:=edt1.Text;
end;

3: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=edt1.Text;
3: edt2.Text:=edt1.Text;
4: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*1);
end;
подскажите что я не правильно делаю, первые 2 значения считает последние два нет

[viteyk]

procedure TForm1.btn1Click(Sender: TObject);
var Gkal, TYT:Extended;
const a=0.134;
b=4.19;
c=1.163;
begin
case cbb1.ItemIndex of
0: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*b);
2: edt2.Text:=edt1.Text;
3: edt2.Text:=edt1.Text;
4: edt2.Text:=edt1.Text;
end;
1: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*a);
3: edt2.Text:=edt1.Text;
4: edt2.Text:=edt1.Text;

end;
2: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=edt1.Text;
3: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*c);
4: edt2.Text:=edt1.Text;
end;

3: case cbb2.ItemIndex of
0: edt2.Text:=edt1.Text;
1: edt2.Text:=edt1.Text;
2: edt2.Text:=edt1.Text;
3: edt2.Text:=edt1.Text;
4: edt2.Text:=FloatToStr(StrToFloat(ed t1.Text)*1);
end;



первые два считает последние два-нет(((

[Virtson]

edt2.Text:=edt1.Text;
я бы вынес это за оба Case, как действие по умолчанию.

а там гляди понятнее станет..

[viteyk]

Всем спасибо))) Разобрался)))