Invalid Pointer Operation.

[freak4fun]

Hallo,
worauf weißt mich die Meldung: "Invalid Pointer Operation." hin?

Ich hab folgendes versucht:

Delphi-Quellcode:

interface

function Funktion(Name: String): String; stdcall;

implemantation

function Funktion(Name: String): String; stdcall; external 'DLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := Funktion(Edit2.Text);
end;

In der DLL.dll

Delphi-Quellcode:

function Funktion(Name: String): String; stdcall;
var
  Zeichenkette: String;
begin
  Result := Zeichenkette;
end;
export
  Funktion;

Also die Zeichenkette ist richtig und wird auch ausgegeben. Ich erhalte halt nur noch die Fehlermeldung. Auf den Service möchte ich aber verzichtn.

Ich bin dankbar für jeden Ansatz und jegliche Lösungsvorschläge.

mfg
freak