Du könntest alternativ generell vor Jede Klammer ein ^ setzen, wenn ichs richtig verstehe ist das ja genau das was du willst.
Dafür gibt es Stringreplace:
Delphi-Quellcode:
String := '(123)(456)';
IString := stringreplace(IString, '(', '^(',[rfReplaceAll, rfIgnoreCase]);
//Ergebnis: ^(123)^(456)