title: How, if shape1.brush.color:=clred and shape2.brush.color:=clred then DO SOMETHING?
body: <p>When I run application with these two codes, shows same error: </p>
  
  <blockquote>
    <p>Operator not applicable to this operand type</p>
  </blockquote>
  
  <pre><code>procedure TForm1.Button4Click(Sender: TObject);
  begin
    If (shape1.Brush.Color:=clblue and shape2.Brush.Color:=clblue) then
    begin
      showMessage('error');
    end;
  
  procedure TForm1.Button4Click(Sender: TObject);
  begin
    If (shape1.Brush.Color:=clblue) and (shape2.Brush.Color:=clblue) then
    begin
      showMessage('error');
    end;
  </code></pre>