title: Delphi 'Could not convert variant of type (UnicodeString) into type (Boolean)
body: <p>I have this code to color grid row based on column data (the grid is from devexpress)</p>
  
  <pre><code>var
  AColumn: TcxCustomGridTableItem;
  gs: variant;
  begin
  
    AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('COLOR');
  
    gs := ARecord.Values[AColumn.Index];
  
    if VarType(gs) and VarTypeMask = varString or varUString then
      AStyle.Color := gs; //&lt;&lt;&lt;----- exception
  </code></pre>
  
  <p>The field <code>color</code> is varchar (firebird) contain values like cllime, clred, etc...
  but I get error 'Could not convert variant of type (UnicodeString) into type (Boolean)' at the line with exception comment. what should  I change ?</p>
  
  <p>Thanks</p>