Логарифм по основанию а от b

[_-Re@l-_]

Вот есть такой простецкий кодик:

library ExtraCode;

uses
  SysUtils,
  Classes;

{$R *.res}

Function Log(A,B:Extended):Extended;stdcall;
Begin
      Result:=Ln(B)/Ln(A);
End;

Exports
        Log;
begin
end.

И такой код его использования:

unit Unit1;

interface

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

type
  TLog = function (A,B:Extended):Extended;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    hndDll:THandle;
    res:TLog;
    A,B:Extended;
begin
      A:=StrToFloat(Edit1.Text);
      B:=StrToFloat(Edit2.Text);
      hndDll:=LoadLibrary('ExtraCode.dll');
      if hndDll<>0 Then
      Begin
            @res:=getProcAddress(hndDll,'Log');
            if addr(res)<>nil then
            Edit3.Text:=FloatToStr(Res(A,B))
            else
            showMessage('Function does not detected...');
      End
      Else
      ShowMessage('Dll is not detected!');
      freeLibrary(hndDll);
end;

end.

Но почему то выдаётся обратный результат, т.е. не логарифм b по основанию а, а наоборот(Логарифм 32 по основанию 2 равен 5, а в моей проге 0,2). Где я накосячил?


Хах, а теперь заметил, что если вызывать функцию

function Log(A,B:Extended):Extended;
begin
        result:=Ln(B)/Ln(A);
end;

Не из DLL, то всё прекрасно и правильно.


И ещё: при статической загрузке Dll результат не совпадает с результатом при динамической загрузке....