калькулятор

[-=Andriushka=-]

написал калькулятор...но надо сделать его по идеальнее...хочу к примеру чтобы после операции если получалось не целое число то чтоб запятая блокировалась а если целое то была активная запятая...вот код

procedure TCalculator.WellClick(Sender: TObject);
begin
     if i=1 then
       Ekran.Text:=FloatToStr(A+StrToFloat(Ekran.Text));
     if i=2 then
       Ekran.Text:=FloatToStr(A-StrToFloat(Ekran.Text));
     if i = 3 then
       Ekran.Text:=FloatToStr(A*StrToFloat(Ekran.Text));
     if i = 4 then
       Ekran.Text:=FloatToStr(A/StrToFloat(Ekran.Text));
     if i = 5 then
       Ekran.Text:=FloatToStr((A/100)*StrToFloat(Ekran.Text));
     Zapyataya.Enabled:=true;
end;

[VKorablev]

НЕ ЦЕЛОЕзапятая бокируется, а целое становится доступной........чорт.......вы зациклили мой мозг ^^