DLL. Project *.exe faulted with message: 'priveleg instruction at 0x...'. Proccess stopped.

[TwiX]

Что это? Как исправить?
Вот код дллки и проги:

var
  form1: tform1;
  getsimpletext: function(langrus: boolean): pchar;
  libhandle: thandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(sender: tobject);
begin
  {"Чистим" адрес функции от "грязи"}
  @getsimpletext := nil;
  {Пытаемся загрузить библиотеку}
  libhandle := loadlibrary('mydll.dll');
  {Если все ok}
  if libhandle >= 32 then
  begin
    {...то пытаемся получить адрес функции в библиотеке}
    @getsimpletext := getprocaddress(libhandle,'getsimpletext');
    {Если и здесь все ok}
  if @getsimpletext <> nil then
    {...то вызываем эту функцию и показываем результат}
    showmessage(strpas(getsimpletext(true)));
  end;
  {И не забываем освободить память и выгрузить dll}
  freelibrary(libhandle);
end;

library mydll;

uses
  sysutils,
  classes;

{Определяем функцию как stdcall}
function getsimpletext(langrus: boolean): pchar; stdcall;
begin
  {В зависимости от langrus возвращаем русскую (true) либо английскую (false) фразу}
  if langrus then result := pchar('Здравствуй, мир!')
  else result := pchar('hello, world!');
end;
{Директива exports указывает, какие функции будут экспортированы этой dll}
exports getsimpletext;
begin
end.

Ошибка вылетает при выходе из ButtonClick...

[raxp]

вы забыли stdcall при объявлении...

getsimpletext: function(langrus: boolean): pchar;stdcall;libhandle: thandle;

[TwiX]

Спасибо! )