原子操作与非原子操作的混合

在Delphi源代码中,我们有:

class function TNetEncoding.GetBase64Encoding: TNetEncoding;
var
  LEncoding: TBase64Encoding;
begin
  if FBase64Encoding = nil then
  begin
    LEncoding := TBase64Encoding.Create;
    if AtomicCmpExchange(Pointer(FBase64Encoding), Pointer(LEncoding), nil) <> nil then
      LEncoding.Free
{$IFDEF AUTOREFCOUNT}
    else
      FBase64Encoding.__ObjAddRef
{$ENDIF AUTOREFCOUNT};
  end;
  Result := FBase64Encoding;
end;

但我不明白,他们混在一起 原子操作 ( AtomicCmpExchange(Pointer(FBase64Encoding), Pointer(LEncoding), nil) 具有 非原子操作 喜欢 if FBase64Encoding = nil then 和 Result := FBase64Encoding;

这不是一个错误吗?