[fofka]

Все работает как нужно. Будем делать далее. Благодарю за подсказку.

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  Reg : TRegistry;
begin
 Reg := TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 If Reg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\services\W32Time\Parameters') Then 
  Begin
    If Reg.ValueExists('NTPServer')
      Then LabeledEdit1.Text:= Reg.ReadString('NTPServer')
      Else LabeledEdit1.Text:= 'N/A';
    Reg.CloseKey;
  End;
  end;