dll?procedure DoTest(H: THandle; { 传递句柄       }
  AConn: TADOConnection; { 传递数据库连接 }
  S: string; { 传递文本信息   }
  N: Integer); { 传递数值信息   }
cdecl; { 指定调用协议   }
external 'Project2.dll'; { 指定过程来源   }{ 调用过程 }procedure TForm1.Button1Click(Sender: TObject);
begin
  DoTest(Application.Handle,
    ADOConnection1,
    'Call OK',
    256);
end;