Я бы сделал как-нибудь так (будет работать и с 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;