{ a declarer soit dans la partie implementation
soit dans la partie interface selon vos besoins}
function IsConnected: BOOL; stdcall; external 'bnConn.dll' name 'bnWebOk';
{ Exemple d'utilisation avec 1 TButton et 1 TLabel}
procedure TForm1.Button1Click(Sender: TObject);
Const
BoolStr : Array[Boolean] of String=('Non Connecté', 'Connecté');
begin
Label1.Caption := BoolStr[IsConnected];
end;