title: Error in Delphi with perlregex in file
body: <p>I have a problem with perlregex, the issue is not whether such use is in the component perlregex txt file but I want to open the file has characters that do not understand and I know how hard I have to use it to search in perl perlregex, went up a link to the file: <a href="http://uploaded.net/file/ghhm0xv4" rel="nofollow">http://uploaded.net/file/ghhm0xv4</a>, I'm sure the problem is in the text file because I use the component perlregex well, if they want to see the code on how to use the perlregex component you can see here.</p>
  
  <pre><code>unit test;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, PerlRegEx;
  
  type
    TForm1 = class(TForm)
      Edit1: TEdit;
      Edit2: TEdit;
      Button1: TButton;
      PerlRegEx1: TPerlRegEx;
      Memo1: TMemo;
      procedure Button1Click(Sender: TObject);
  
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  function ReverseString(const S: string): string;
  var
    i, len: Integer;
  begin
    len := Length(S);
    SetLength(Result, len);
    for i := len downto 1 do
    begin
      Result[len - i + 1] := S[i];
    end;
  end;
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    conte: TMemoryStream;
    source: string;
  
  begin
  
    conte := TMemoryStream.Create;
    conte.LoadFromFile('test.txt');
    SetString(source, PAnsiChar(conte.Memory), conte.Size);
  
    source := ReverseString(source);
  
    PerlRegEx1.Regex := '} 2 E R E H { (.*) } 2 E R E H {';
    PerlRegEx1.Subject := source;
  
    if PerlRegEx1.Match then
    begin
      Edit1.Text := PerlRegEx1.SubExpressions[1];
    end;
  
    end;
  
  end.
  </code></pre>
  
  <p>the problem is that it does not find anything, the program does not throw any errors in general, I suspect the problem is in the text file, not if I have to do something to the file content to use perlregex</p>