Probelme mit DLL Programmierung

[Digielm]

ok hier der Code der DLL

Delphi-Quellcode:

library Phoenix;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }


uses
  SysUtils,
  SDL_cpuid;

{$R *.res}
function CalcStrChecksum(s: string): Longint;
var
  i: integer;
  L: integer;
begin
  Result := 0;
  l := Length(s);
  if l > 0 then
  begin
    for i := 1 to l do
      Inc(Result, Ord(s[i])*i);
  end;
end;

function einfachso : String;  stdcall;
begin
//  result := GenerateCPUID +'-'+ inttostr(CalcStrChecksum(GenerateCPUID));
  result := GenerateCPUID;
end;


exports einfachso;
begin
end.