Ошибка при использовании DLL

function AuthCheck(User, HWID, GOOD: string ; id:integer): string; export;
var
  HTTP: THTTPSEND;
  HTML: TSTringlist;
  DecompStream: TStringStream;
begin
  HTTP := Thttpsend.Create;
  HTML := TSTringlist.Create;
  HTTP.Protocol := '1.1';
  DecompStream := TStringStream.Create;
  HTTP.Headers.Add('Accept: application/json, text/javascript, */*; q=0.0');
  HTTP.Headers.Add('X-Requested-With: XMLHttpRequest');
  HTTP.MimeType := 'application/x-www-form-urlencoded; charset=UTF-8';
  HTTP.UserAgent := 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; WOW64; Trident/6.0)';
  DecompStream.WriteString('id='+ID+'&Hash=' + HWID + '&Login=' + User);
  HTTP.Document.LoadFromStream(DecompStream);
  if HTTP.HTTPMethod('POST', 'ad') then
  begin
    HTML.LoadFromStream(HTTP.Document);
    if pos(GOOD, HTML.Text) <> 0 then
    begin
      Result := HTML.Text;
    end
    else
    begin
      Result := HTML.Text;
    end;
  end;
end;
 
exports
  AuthCheck;

interface
 
function AuthCheck(User, HWID, GOOD: string ; id:integer): string; stdcall;
 
const
  RCAPIDLL = 'RCSFT.dll';
 
 
implementation
 
 
function AuthCheck(User, HWID, GOOD: string ; id:integer): string; stdcall; external RCAPIDLL;
 
end.

procedure TForm16.sButton1Click(Sender: TObject);
var
Response:String;
begin
Response:=AuthCheck('LOGIN','HWID','GOODREZ',1);
end;