Dll in Delphi

[DomiNik]

Нужно написать программу с использыванием dll. Программа написана, но не коректно, т.к. выдает ошибку о том, что dll ссылается сам на себя...прошу Вашей помощи..

Dll_sq:

library dll_sq;

uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};

type
TSquare = record
S:real;
end;
function TOkr(x:TSquare):Tsquare; export;
begin
Result.S:=pi*sqr(x.S)
end;

function TPryam(x,y:TSquare):TSquare; export;
begin
Result.S:=x.S*y.S;
end;

function TTreug(x,y:TSquare):TSquare; export;
begin
Result.S:=x.S*y.S/2;
end;
exports
TOkr index 1,
TPryam index 2,
TTreug index 3;
{$R *.res}

begin
end.

Код вызывающей программы:

unit Unit1;

interface

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

type
TSquare=record
S:real;
function TOkr(x:TSquare):TSquare;
external 'DLL_Square' index 1;
end

TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x1:real;
x: TSquare;
begin
x1:=StrToFloat(Edit1.Text);
x1:=x;
label1.caption:=FloatToStr(TOkr(x). S);
end;

end.

[Alex Cones]

Мне кажется, или пользователь с ником DomiNik у нас уже есть?

1.2 Категорически запрещается использовать ники схожие с уже существующими на форуме.

P.S.
На это обратите внимание:

Unit1 in 'Unit1.pas' {Form1}; // В DLL? О_о

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

Вы вообще что делаете? DLL вроде...

[DomiNik]

строка, которая выделена, delphi сам прописал....

на тот момент, когда я регистрировался данный ник не был ни за кем....

[Gambler]

Совсем ничего похожего на dll. Читай теорию.