[lmikle]

nixon, и к чему это было???

По поводу вопроса. Если без "защиты от дурака", то можно примерно так:

Код:

uses IniFiles;
function GetInternetUrl : String;
var
  ini : TInifile;
  IniName : String;
begin
  IniName := ChangeFileExt(Application.ExeName,'.ini');
  Ini := TIniFile.Create(IniName);
  Try
    Result := Ini.ReadString('InternetAddress','BaseAddress','https://www.google.com');
  Finally
    Ini.Free;
  End;
end;

Рядом с исполняемым модулем, пусть будет Project1.exe, создай файлик Project1.ini следующего содержания:

Код:

[InternetAddress]
BaseAddress=http://192.168.0.56

И код кнопок поменяй вот так:

Код:

procedure TForm1.Image5Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl), nil, nil, SW_SHOW);
PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl + '/index.php?page=registration'), nil, nil, SW_SHOW);
 PlaySound('SND2', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(GetInternetUrl + '/forum/'), nil, nil, SW_SHOW);
PlaySound('SND3', 0, SND_RESOURCE or SND_ASYNC);
end;