Problem mit dll und pchar

[neolithos]

Bei mir gibt es keine Zugriffsverletzung:


Prog:

Delphi-Quellcode:

function Hallo(tst : ShortString) : ShortString; 
  external 'Project2.dll';

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(Hallo('Hallo'));
end;

In der Dll:

Delphi-Quellcode:

function Hallo(tst : ShortString) : ShortString; export;
begin
  Result := tst + ' Welt';
end;

exports
  Hallo;