DLL Dynamisch laden (Problem)

[danu1104]

Ich habe jetzt mal getestet ob die function überhaupt ausgeführt wird

Delphi-Quellcode:

function EnCode(Str:Pchar):Pchar; stdcall;
Var
   Temp1,Temp2,
   Temp3,Temp4:String;
begin
// Mit showmessage()
Showmessage(Str);
 If Str = '' then Exit else
  try
   Temp1:=dwReverseStr(Str);
   Temp2:=Base64Encode(Temp1);
   Temp3:=Base64Encode(Temp2);
   Temp4:=Base64Encode(Temp3);
  finally
   result:=Pchar(Base64Encode(Temp4));
  end;
end;

Doch wie es scheint wird die DLL erst garnicht aufgerufen, aber wieso was ist falsch?

so rufe ich die DLL unter Button1Click auf in der TForm1 aus einer Pas Datei

Edit1.Text:=LDynDll_Encode(Pchar(ExtractFilePath(Paramstr(0))+'cryptemp.dll'),Pchar(Edit1.Text))