Zugriffsfehler DLL

Hey Delphi-Gemeinde,

ich habe ein Problem mit einer function in einer DLL, doch diese gibt mir immer ein Zugriffsfehler zurück.
Ich konnte das Problem zwar eingrenzen dennoch bin ich zu keiner Lösung gekommen.
Und zwar, wenn ich den Rückgabewert als Integer deklariere, dann funzt es einwandfrei, aber bloss als string nicht.

Code:

Deklarationen:

Delphi-Quellcode:

type
  TDLL = Procedure; StdCall;
  TPlugin = function(URL: String): String; StdCall;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    function DLL(Dateiname, Name: String; URL: String): String;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

function im Hauptprogramm:

Delphi-Quellcode:

function TForm1.DLL(Dateiname, Name: String; URL: String): String;
var Plugin: TPlugin;
    Handle: THandle;
begin
 Handle := LoadLibrary(PCHAR(ExtractFilePath(ParamStr(0)) + '\dlls\' + Dateiname));
 if Handle <> 0 then
 BEGIN
  @Plugin := GetProcAddress(Handle, PCHAR(Name));
  if @Plugin <> nil then begin
    result := Plugin(URL);
  end;
 END;
  FreeLibrary(Handle);
end;

Aufruf der DLL:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Test: STring;
begin
  Test := DLL('test.dll','Anzeigen','Test');
  ShowMessage(Test);
end;

die DLL:

Delphi-Quellcode:

function Anzeigen(URL: String): String; StdCall;
begin
 if URL = 'Test' then
  Result := 'Funzt';
end;
 exports Anzeigen;

Also wie gesagt, wenn ich den Rückgabewert als Integer definiere und die var URL auch, dann funzt es!

Wo liegt der Fehler, dass er string nicht mag?

Gruss Daniel