[Malfatto]

Все решил я эти задачи. Завтра выложу решения ибо сейчас я сижу с телефона

[Malfatto]

Проверка соединения с интернетом
В константы пишем

Код:

const  
 INTERNET_CONNECTION_MODEM      = 1;  
 INTERNET_CONNECTION_LAN        = 2;  
 INTERNET_CONNECTION_PROXY      = 4;  
 INTERNET_CONNECTION_MODEM_BUSY = 8;

пихаем это куда повыше

Код:

function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';

а вот эту функцию под предыдущей, ну это уж вы как хотите

Код:

function IsInternetConnected: Boolean;
var
 dwConnectionTypes: DWORD;
begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM or
                      INTERNET_CONNECTION_LAN or
                      INTERNET_CONNECTION_PROXY;
 Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Функция возвращает значиние True, если соединение есть, или значение False, если ползователь не в интернете. А вот пример обращения к этой функции.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
if IsInternetConnected = True then
begin
N2.Enabled:=True;
N5.Enabled:=True;
N8.Enabled:=True;
end
end;

Переход по ссылкам
Вот пример процедуры

Код:

procedure TForm1.N5Click(Sender: TObject);
begin
ShellExecute(handle,'open','http://forum.oszone.net/',nil,nil,SW_SHOW);
end;

не разбирался, какие значения он отдаёт функции, главное, заменить адрес сайта на свой.