uses里加Registry单元;
var
  Reg, Registry: TRegistry;//变量

//--------以下为判断注册表内信息-------//
  Registry:=TRegistry.Create;

  Registry.RootKey:=HKEY_LOCAL_MACHINE;

  if Registry.OpenKey('\Software\1111, False) then
  begin
    g_sRopeWayName := Registry.ReadString('Name');
    Registry.CloseKey;
  end
  else
  begin
    MessageBox(Handle,'由于您第一次使用本软件，所以您先要填写系统配置！',sSysName,MB_ICONINFORMATION);
  end;
  
  Registry.Free;
//--------以上为判断注册表内信息-------//

上面是我曾经写的，你可以看看