DLL Aufruf

[Gehstock]

ich versuche grad eine DLL einzubinden die so aufgerufen wird
bool funktion(LPCSTR Benutzername, LPCSTR Firma, LPCSTR Seriennummer); Das hab ich mit

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

function CheckSerial(Benutzername,Firma,Seriennummer : String):Boolean;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function CheckSerial(Benutzername,Firma,Seriennummer : String):Boolean;external 'rert.dll';


procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckSerial(Edit1.Text,Edit2.Text,Edit3.Text) then caption := 'Ok' else caption := 'falsch'
end;

end.

getan

aber das Result bleibt immer False obwohl ich die richtigen Seriennummern eingebe
Benutzername und Firma ist glaub nicht so wichtig weil ich diese beim generieren der DLL nicht angeben musste

hat jemand ne Idee