Проблемы с функцией и DLL

[Gott]

Всем привет. Прошу помощи. Delphi. Изложу суть проблемы.
Имеется приложение, а так - же имеется dll файл с таким исходным кодом:

PHP код:

library functions;

uses
  Windows, SysUtils, Classes, Dialogs;

{$R *.res}

function GetCPUSpeed: double; stdcall;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh // rdtsc
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh // rdtsc
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := TimerLo / (1000.0 * DelayTime);
end;

exports GetCPUSpeed;

begin
end. 


Собственно всего - то навсего хочу вызвать и использовать данную функцию в своем приложении, но при компиляции выдает ошибку

PHP код:

  [Error] Loading.pas(24): Function needs result type
  [Error] Loading.pas(11): Unsatisfied forward or external declaration: 'TLoadingForm.GetCPUSpeed'
  [Fatal Error] SelectionComitee.dpr(5): Could not compile used unit 'Loading.pas' 


Ниже привожу код приложения

PHP код:

unit Loading;

interface

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

type
  TLoadingForm = class(TForm)
  function GetCPUSpeed: double; stdcall;
  procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoadingForm: TLoadingForm;
  Ini: Tinifile;

implementation

function GetCPUSpeed; external 'functions.DLL' name 'GetCPUSpeed';

{$R *.dfm}

procedure TLoadingForm.FormCreate(Sender: TObject);
var
  first_test: string;
begin
  if Not FileExists('settings.ini') then
    begin
      MessageBox(0, 'ERROR!.', 'WARNING', mb_IconWarning + mb_OK + mb_TaskModal);
      Halt;
    end;

    Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'settings.ini');
    first_test:=Ini.ReadString('main','first_test','false');
    ShowMessage(first_test);
    Ini.Free;

    if first_test = 'false' then
      begin
        ShowMessage(Format('CPU speed: %f MHz', [GetCPUSpeed]));
      end;

end;

end. 


Полагаю причина во мне. Я даже более чем уверен что где - то что - то не так объявил, но не могу понять в чем ошибка так как новичек. Понимаю что говорит мне делфи, но не могу понять что нужно сделать D:
Проверил только что с другой функцией, такая - же ошибка

[Nowar]

Написано
function GetCPUSpeed; external 'functions.DLL' name 'GetCPUSpeed';
А что возвращает функция? Нужно двоеточие и тип.

[Gott]

Тогда он ругается на эту строчку

type
  function GetCPUSpeed: double; stdcall;

Ошибка:

Build
  [Error] Loading.pas(11): Unsatisfied forward or external declaration: 'TLoadingForm.GetCPUSpeed'

Изменил так:

function GetCPUSpeed: Double; external 'functions.DLL' name 'GetCPUSpeed';

* красным жирным выделил что изменил конкретно

Функция возвращает скорость CPU, листинг выше, самый первый код.

[Gott]

Up, все еще нужна помощь

[Gott]

Сам разобрался. Для тех кому надо:

type
  TLoadingForm = class(TForm)
//  function GetCPUSpeed: double; stdcall;

Здесь в секции type модуля Loading должна быть полная сигнатура функции.