const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN   = 2;
INTERNET_CONNECTdState';
{$R *.DFM}
procedure TForm1.CheckState(Sender: TObject);
var    dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
if InternetGetConnectedState(@dwConnectionTypes,0)
then
      ShowMessage('Youa connected')
else
      ShowMessage('No Connection');
end;