اجرای فایل فلش در برنامه دلفی

برای اینکه بتوانیم فایلهای فلش را در برنامه دلفی اجرا نمائیم بایستی اکتیوایکس فلش را در دلفی نصب و آنرا در برنامه دافی صدا بزنیم.
راهنمای تصویری اینکار در سایت زیر ارائه شده است.
این راهنما به زبان انگلیسی است اما بدلیل استفاده از تصویر براحتی برای افرادی که به زبان انکلیسی هم آشنا نستند قابل استفاده می باشد.
Running Flash animations with Delphi

چطور در برنامه دلفی بفهمیم که آیا کامپیوتر به اینترنت متصل هست یا نه؟

procedure TForm1.Button1Click(Sender: TObject) ;

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
  {return True if _funcname exists in _dllname}
var _lib: tHandle;
begin
   Result := false;
   If LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname)) ;
   If _lib <> 0 then 
   begin
    _p := GetProcAddress(_lib, PChar(_funcname)) ;
    if _p <> NIL then Result := true;
   end;
end;

  {
  Call SHELL32.DLL for Win > Win98
  otherwise call URL.dll
  }
  {buton code:}
var
  InetIsOffline : function(dwFlags: DWORD):
                   BOOL; stdcall;
begin
   if FuncAvail('URL.DLL', 'InetIsOffline', @InetIsOffline) then
      if InetIsOffLine(0) = true  then 
          ShowMessage('Not connected')
     else 
          ShowMessage('Connected!') ;
end;

آیا ما به اینترنت متصل هستیم؟