[angvelem]

Лучше подправить немного.

Код:

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;
  Reg.Free;
end;