[ryderx34]

Я бы сделал как-нибудь так (будет работать и с Ctrl+V):

Код:

function DblPlusExists(S: String; var P: Integer): Boolean;
begin
  P := Pos('++', S);
  Result := P > 0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
  S: String;
begin
  while DblPlusExists(Edit1.Text, I) do
  begin
    S := Edit1.Text;
    Delete(S, I, 1);
    Edit1.Text := S;
  end;
end;