[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= MaskEdit1.Text;
Delete(s, Pos(',', s), 1);
MaskEdit1.Text:= StringReplace(s, '-', ',', [rfReplaceAll]);
end;