switch case и if

[-=Andriushka=-]

помогите совместить switch case и if...вот код...

case i of
     1:Ekran.Text:=FloatToStr(A+StrToFloat(Ekran.Text));
     2:Ekran.Text:=FloatToStr(A-StrToFloat(Ekran.Text));
     3:Ekran.Text:=FloatToStr(A*StrToFloat(Ekran.Text));
     4:Ekran.Text:=FloatToStr(A/StrToFloat(Ekran.Text));
     5:Ekran.Text:=FloatToStr((A/100)*StrToFloat(Ekran.Text));

надо чтобы в if проверялось значение чтото типа

if (StrToFloat-trunc(StrToFloat)=0 then
           Zapyataya.Enabled:=true;
 else Zapyataya.Enabled:=false

[evg_m]

ТАК?

r:=StrToFloat(Ekran.Text);
Zapyataya.Enabled:= r-trunc(r)=0;

А если введено 55,00
ведь тогда r -trunc(r)=0 и enabled= true
значит запятую вводить можно? Но ведь она уже есть!
проще просто проверить есть в поле запятая
Zapyataya.Enabled:=(pos(',', Ekran.text) <=0);

сase i of
     1:Ekran.Text:=FloatToStr(A+r);
     2:Ekran.Text:=FloatToStr(A-rr);
     3:Ekran.Text:=FloatToStr(A*r);
     4:Ekran.Text:=FloatToStr(A/r);
     5:Ekran.Text:=FloatToStr((A/100)*r);
end;