[fofka]

Исправил как подсказали angvelem и lmikle, ошибку не выдает при копиляции. Но судя по тому что в LabeledEdit1 у меня нет изменений при нажатии на кнопку, не может прочитать ключ реестра.

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  Reg : TRegistry;
begin
 Reg := TRegistry.Create;
 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;