Ajuda em Invalid pointer operation numa DLL

06/03/2006

Pessoal, Criei um simples projeto para ilustrar meu problema.
Estou Fazendo uma chamada dinamica a uma dll, e na hora de dar um close, no form principal, o delphi me retorna Invalid pointer operation ....., detalhe, isso ocorre apenas em design-time

[b:8d6d4fb5e3]estou rodando apenas essa rotina no form principal:[/b:8d6d4fb5e3]

procedure TForm1.Button1Click(Sender: TObject);
var HD: THandle;
proc :function:string; stdcall;
mEmpresa:string;
begin

HD:= LoadLibrary(´lib.dll´);
if HD <> 0 then
begin

@proc := GetProcAddress(hd, ´Empresa´);
if @proc <> nil then
mEmpresa:=proc;

freelibrary(HD);

end;

showmessage(mEmpresa);

end;


[b:8d6d4fb5e3]minha DLL estah com o seguinte codigo:[/b:8d6d4fb5e3]


library Lib;

uses
ShareMem,
SysUtils,
Dialogs,
Classes;

{$R *.res}

function Empresa:string;Stdcall;
begin
result:=´ViP Computadores´;
end;

exports
Empresa name ´Empresa´;

begin


end.


Alguem poderia me Ajudar??

Grato
ATT
Ermindo Lopes


Ermindo