Почему повторный вызов dll вызывает ошибку?

← →
dim- © (2004-08-27 10:53) [0]

Почему повторный вызов dll вызывает ошибку?
library abouts;
uses
SysUtils,
Classes,
main in "main.pas" {About};
{$R *.res}
exports ShowAbout ;
begin
end.

unit main;
...
Procedure ShowAbout() stdcall;export;
var
About: TAbout;

implementation

{$R *.dfm}
Procedure ShowAbout() ;
Begin
About:=TAbout.Create(nil);
About.ShowModal;
About.free;
end;
------------------------------------------
Вызываю ее так:
var
AboutShow:procedure();
libhande:tHandle;
begin
@AboutShow:=nil;
libhande:=loadLibrary("Abouts.dll");
try
if libhande>=32 then begin
@AboutShow:=GetProcAddress(libhande,"ShowAbout");
if @AboutShow<>nil then
AboutShow();
end;
finally
FreeLibrary(libhande);
end;

← →
Digitman © (2004-08-27 10:58) [1]

AboutShow:procedure(); stdcall;

Почему повторный вызов dll вызывает ошибку? Найти похожие ветки