var ok:boolean;
msg:string;
begin
OK := InternetGetConnectedState(nil, 0);
If OK = True Then Msg := 'Du är ansluten till Internet!';
If OK = False Then Msg := 'Du är inte ansluten till internet!';
showmessage(msg);
end;