IkaMazini

uses WinInet;
……………
procedure TForm1.Button1Click(Sender: TObject);
var
*dwConnectionTypes: DWORD;
begin
*if InternetGetConnectedState(@dwConnectionTypes,0) then
* *ShowMessage('Internet Connection Executed!');
*if not InternetGetConnectedState(@dwConnectionTypes,0) then
begin
*if MessageDlg('Internet Connection Not Executed!'
* ,Mtinformation,[mbOk],0)=mrOk then
*Exit;
end;
end;