// ===========================================================================
// zRasDialerDemo.ds
// Dialog demo script for include file "zRasDialer.ds"
// Version 2003-08-08 (Jürgen Haible, http://www.elbiah.de/tools/dialog/)
// ===========================================================================

Program zRasDialerDemo;

uses Forms, StdCtrls;

{$I zRas}
{$I zRasDialer}

Begin

   // make sure that we have a connection
   // (if not, ask for which to dial)
   if RasDialer then begin

      // transfer data
      ADo('SendAllInOutbox');
      ADo('GetNewHeadersInSubscribedGroups');
      ADo('GetNewEmailsForAllIdentities');

      // hangup
      RasHangupAll;
      
   end;
   
End.