Убрать вторую запятую

[Aleksandr]

В edit вводится число например 14,6911,00 нужно разделить на два числа 14,69 и 11,00 или убрать вторую запятую и округлить число до двух знаков.

[Аватар]

В uses добавить StrUtils, Math

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
    i1,i2: Integer;
    r: Real;
begin
  s:='14,6911,00';
  i1:=Pos(',',s);
  if i1>0 then begin
    i2:=PosEx(',',s,i1+1);
    if i2>0 then s:=Copy(s,1,i2-1)+Copy(s,i2+1,Length(s)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s,0),-2);  //результат
end;