bestimmte Wörter im Memo suchen

[delphiUser88]

Hallo

Ich habe es erstmal so gelöst zumindest wird der gesamte jeweilige Text des Memo.Lines.Strings[i] nach einem bestimmten Wort durchsucht und dieses dann ausgegeben Wie ich aber nun noch alles was in Klammern steht auslesen kann hab ich noch nicht rausgefunden

Delphi-Quellcode:

var
  i: Integer;
  sText: String;
  slDat: TStringList;

     try

        For i := 0 to Memo1.Lines.Count -1 do
        begin

        slDat := TStringList.Create;
        slDat.Clear();
        sText := '';
        sText := Memo1.Lines.Strings[i];


        while pos('Konto',sText) <> 0 do
        begin
        slDat.Add(copy(sText,1,pos('Konto',sText)-1));
        delete(sText,1,pos('Konto',sText));
        end;

        slDat.Add(sText);

                         if slDat.Strings[i] = Memo1.Lines.Strings[i] Then
                         begin
                         // nichts tun
                         end
                            else
                                begin
                                MessageDlg('gesuchte Wort gefunden',mtInformation, [mbOK], 0);
                                Exit;
                         end;//if



                                  
        end //schleife

                                  except
                                  Exit;

     end; //try


end;