Проблема с вызовом функции B DLL

[doniyor]

Не могу откомпилировать следующий проект. (прежде не занимался dll, sorry)

[Stilet]

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Gauge1: TGauge;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
   public
    { Public declarations }
  end;
    function CheckState: String; StdCall;

Увидел ошибку?
Не пихай экспортируемые функции в класс.

[raxp]

це ще не все... в библе кто экпортировать будет?
було так...

library check;

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

function CheckState: String; StdCall;
begin
Result:=ExtractFilePath(Application.ExeName);
end;

{$R *.res}
begin
end.

...сделай так:

library check;

uses
 windows,sysutils;

function CheckState: pchar; StdCall;
begin
 Result:= pchar(ExtractFilePath(paramstr(0)))
end;
exports CheckState;

begin
end.