Variable required

Question

class function TMyCommon.AccessInstance(Request: Integer): TMyCommon;
const
  FInstance: TMyCommon = nil;
begin
  {
   AccessInstance(0); 不作任何处理,供释放实例对象时使用.
   AccessInstance(1); 存在该实例时直接使用;不存在时创建该实例.
   AccessInstance(2); 返回一个空指针,用于重新设置实例.
  }
  case Request of
    0: ;
    1: if not Assigned(FInstance) then    // 报错----Variable required
       begin
         FInstance := CreateInstance;
         FInstance.FConnected := False;
       end;
    2: FInstance := nil;
    else
      raise Exception.CreateFmt('%d是AccessInstance中非法调用参数!', [Request]);
  end;
  Result := FInstance;
end;指点

Answer 1

{$J+}const FInstance: TMyCommon = nil;{$J-}

Answer 2

const
  FInstance: TMyCommon = nil;
你这个是定义常量吗?
把const改成var