String-Bearbeiten (Filtern, Löschen, etc.)

[PierreB]

Moin,

ich steh grad total auf dem Schlauch, vielleicht könnt ihr mir helfen.
Ich habe einen String, der so aufgebaut ist: meintest { test tets; }.
Jetzt möchte ich nur an den Wert vor der {-Klammer kommen, alles was hinter dem ersten Wort ist soll gelöscht werden. Soweit kein Problem, hab ich gut hinbekommen. Wenn jetzt aber zwei {-Klammern nach dem ersten Wort stehen wird eine Klammer nicht gelöscht. Hat jemand ne Idee wieso ? Hier mal mein Code:

Delphi-Quellcode:

var
test : String = 'meintest {{ test tets; }';

procedure TForm2.Button1Click(Sender: TObject);
var
i, x : Integer;
begin
for i := 0 to Length(test) do
if test[i] = '{' then x := i;
Delete(test, x, Length(test));
ShowMessage(test);
end;

Als Ergebnis wird mir "meintest {" angezeigt. Wie kann ich das ausbessern ?
Desweiteren würde ich gerne alle Leerzeichen in diesem String löschen, da meine Delphi-Hilfe nicht mehr geht durchforste ich grade das Internet. Danke schonmal,