LAN Web TCP Delphi

function KullaniciOnlinemi:boolean;
var
Baglantidurumu:dword;
begin
Baglantidurumu := 2 {Network} +1 {Modem} + 4 {proxy} ;
result := InternetGetConnectedState(@Baglantidurumu,0);
end;

{----------Kullanilmasina Örnek-----------}

if KullaniciOnlinemi = true then
ShowMessage('Kullanici Bagli')
else ShowMessage('Kullanici bagli degil!');