function TForm1.isOnline: boolean;
var buffer: Array[0..4] of Char;
size:integer;
Key: hKey;
begin
if RegOpenKey(HKEY_LOCAL_MACHINE, 'System\CurrentControlSet\Services\RemoteAccess', Key) = ERROR_SUCCESS then
begin
Size := 4;
if RegQueryValueEx(Key, 'Remote Connection', nil, nil, @buffer, @Size) = ERROR_SUCCESS then
result:= buffer[0] = #1
else result:= false;
RegCloseKey(Key);
end;
end;