Evo ovako (provera da li je postoji konekcija i automatsko zvanje), na primer

uses ... ,WinInet, ...


var
dwConnectionTypes: DWORD;

dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then begin
// not connected
if MessageDlg('Do you want to connect to internet now?',mtWarning,[mbYes,mbNo],0)=mrYes then begin
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then begin
ShowMessage('Error: Auto dial failed!');
end
else
// autoconnect to internet
end;
end

Imam gotovu funkciju koju sam negde isceprkao po net-u, vrlo prosta, 2-3 reda.
Samo, ne mogu sad da je postujem, sutra cu...