Una manera muy sencilla de hacerlo:
Código Delphi
[-]
const
Input = 'Texto de(elimi(nar_es)to) ejemplo(esto tambien).';
Expected = 'Texto de ejemplo.';
var
Output: string;
BracketCount: Integer;
Each: Char;
begin
BracketCount := 0;
for Each in Input do
begin
if Each = '(' then
Inc(BracketCount)
else if Each = ')' then
Dec(BracketCount)
else if BracketCount = 0 then
Output := Output + Each;
end;
Assert(Output = Expected);
end.