убирает '++' оставляя только один.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
st:string;
begin
repeat
i:=pos('++',Edit1.Text);
st:='';
if i>0 then begin
st:=copy(edit1.Text,i+2,length(edit1.Text)-i);
edit1.Text:=copy(edit1.Text,1,i)+st;
end;
until i=0;
end;