А хули там. Ты погляди, куда ты в первом варианте воткнул строку:

case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
edit1.text := FloatToStr(X*K); <----- вот эту
end;

ВНУТРЬ CASE !

А нужно - вне этого блока (как во втором варианте):

case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
end;
edit2.text := FloatToStr(X*K); <---- вот это правильно
end;

Так что ничего удивительного, что сейчас заработало :-)