Ono sa to ale takto v real-life vstupoch od užívateľa nerobí...
Proste obmedzíš zadanie vstupu od užívateľa (nástrojov je v Delphi hneď niekoľko...) napr. na určitý počet desatinných miest,
alebo mu rovno predhodíš do editačného poľa definovanú masku vstupu, aby tam náhodou nezadal písmeno namiesto čísla atď...

v jeho prípade/príklade by som to urobil asi takto:

var
  I: Integer;
  S: String;
begin
  S := StringReplace(Edit1.Text, ',', '', [rfReplaceAll, rfIgnoreCase]);   <- odstránim znak desatinnej čiarky zo zadaného vstupu
  I := StrToInt(S);  <- prevediem text na číslo
  Label1.Caption :=  IntToStr(I);  <- tento spätný prevod na string je už len kvôli kontrole...
end;