such mit dem befehl pos nach der ersten klammer. dann merkst du dir die position und suchst wieder mit pos die nächste klammer.
mit diesen zwei zurückgegebenen werten kannst du via copy den rest abschneiden. zu jedem befehl gibts hier im forum oder in der delphi hilfe infos.
edit: hab dir mal ein beispiel gemacht wie ich das meine.
Delphi-Quellcode:
var
I, F: Integer;
begin
// erste Klammer suchen.
I := Pos('{', E_Str.Text);
// Wenn gefunden weiter
if I > 0 then
begin
// nächste Klammer suchen (dazu den String ab der Position I bis zum Ende
// verwenden.
F := Pos('}', Copy(E_Str.Text, I, Length(E_Str.Text)));
// Wenn gefunden weiter
if F > 0 then
begin
// Ausgabe von Start I bis Ende F
// + 1 um das { zu überspringen und - 2 um das } wegzulassen
E_Output.Text := Copy(E_Str.Text, I + 1, F - 2);
end;
end;