procedure TForm1.Button1Click(Sender: TObject);
//beginType TMyProc=Procedure (dataset:TDataset;dbgrid:TDBGrid ) ;Stdcall;
Var MyProc: TMyproc;
MyHandle:THandle;
begin
MyHandle:=LoadLibrary ('dlltest') ;
 If MyHandle <= 0 then
  Raise Exception.Create( '动态链接库调用失败,错误代码是:'+Inttostr(Getlasterror))
 else
  @MyProc:=GetProcAddress(MyHandle,'crprt');
 if  not Assigned(MyProc) then
   Raise Exception.Create('GetProcAddress调用失败,错误代码是:'+inttostr(getlasterror))
 else
  MyProc(ADODataSet1,DBGrid1);
 Freelibrary(Myhandle);