Programm stürzt bei Zugriff auf DLL ab

[gispos]

Versuchs mal so:

Delphi-Quellcode:

function RegEx(Mask, Source: PChar; out P : PChar): Integer; stdcall;
var
  RE: TRegExpr;
  A: AnsiString;
begin
  Result:= 0;
  RE := TRegExpr.Create;
  RE.Expression := Mask;

  try
    if RE.Exec(Source) then
      A := RE.Match[0]
    else
      A := 'kein Treffer';

    GetMem(P, Length(A) + 1);
    Result:= Length(A) + 1;
    MoveMemory(P, @A[1], Result);
  finally
    RE.Free;
  end;

end;

exports
  RegEx;

begin
end.

Aufruf

Delphi-Quellcode:

var
  P: PChar;
  I: Integer;
begin
   I:= 0;
  I:= RegEx('\d+', 'asd123dsa', P);
  If I > 0 then
  begin
    Caption:= P;
    FreeMem(P, I);
  end;
end;

Gruß gispos