TPerlRegEx einbinden?

[Chefx]

Danke bloß jetzt kommt bei mir fehler in der cpu!

weiß nicht wo ich da hier ein fehler gemacht hab?

hier noch mal mein gesamter quelltext:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses perlregex;

{$R *.dfm}

function MatchExpression(subj, expr: string; max: boolean = False): string;
begin
  with TPerlRegEx.Create(nil) do
    begin
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
          if max then
            repeat
              result := SubExpressions[SubExpressionCount]
            until not MatchAgain
          else
            result := SubExpressions[1];
        end;
    end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
edit1.Text:=MatchExpression('a','^[aA]$');
end;

end.

also reinthoretidch müsst das doch klappen.