Parse Text

procedure ParseThis(MyStr: String);
var
  MyParser : TParser;
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.Position := 0;
  MS.Write(MyStr[1], Length(MyStr));
  MS.Position := 0;
  yParser := TParser.Create(MS);
  MyStr := MyParser.TokenString;

  while MyParser.Token <> toEOF do
    begin
    MyParser.NextToken;
    if MyParser.TokenSymbolIs(MyParser.TokenString) then
      begin
     MyStr := MyParser.TokenString;
     //ShowMessage(MyStr);
     Form1.Memo1.Lines.Add(MyStr);
   end;
  end;
  MyParser.Free;
  MS.Free;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ParseThis('Nobody for President is the salvation..');
end;