PChar an DLL übergeben

[Mossi]

Ich hab im moment ein ganz simples Problem, das ich eigentlich schon öfter gemacht habe, aber irgendwie finde ich aktuell die Lösung nicht.
ich habe eine DLL mit einer procedure stdcall. An diese procedure übergebe ich zwei PChar. Es kommt da aber nur Unsinn an. wenn ich stdcall weglasse, dann passt es. Da ich aber von anderen Sprachen darauf zugreifen möchte, bräuchte ich eigentlich stdcall.
Vermutlich handelt es sich um einen dummen Leichtsinnsfehler, aber ich sitz gerade voll auf'm Schlauch.

Quellcode der DLL:

Delphi-Quellcode:

library DelphiDll;

uses
  SysUtils,
  Classes;

{$R *.res}

procedure TestMethod(value1: PChar; value2: PChar); stdcall;
begin

end;

exports
  TestMethod;

end.

Quellcode des aufrufenden Programms:

Delphi-Quellcode:

program DelphiDllTest;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

type
  TTestMethod = procedure(value1: PChar; value2: PChar);

var
  lib: Cardinal;
  method: TTestMethod;
begin
  lib := LoadLibrary(PChar('DelphiDll.dll'));
  if lib <> 0 then
  begin
    @method := GetProcAddress(lib, PChar('TestMethod'));
    if Assigned(method) then
      method(PChar('test1'), PChar('test2'));
  end;
end.