Programm stürzt bei Zugriff auf DLL ab

[WorstNightmare]

Ich habe es jetzt so abgeändert:

Delphi-Quellcode:

function RegEx(Mask, Source: PChar): PChar; stdcall;
var
  RE: TRegExpr;
  M: string;
begin
  RE := TRegExpr.Create;
  RE.Expression := Mask;
  try
    if RE.Exec(Source) then
    begin
      M := RE.Match[0];
      Result := PChar(M)
    end
    else
      Result := 'kein Treffer';
  finally
    RE.Free;
  end;
end;

Das Problem mit dem ungültigen PChar wäre somit doch gelöst, oder?
Der Fehler tritt bei meinem Kollegen jedoch immer noch auf