Toggle Delphi Label color with Firemonkey
<p>With VCL I can do this:</p>

<pre><code>procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Color := clBlue;
  Label1.Font.Color := clYellow;
  label1.Caption := ' My Label '
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Label1.Color = clBlue then
    begin
      Label1.Color := clYellow;
      Label1.Font.Color := clBlue
    end
  else
    begin
      Label1.Color := clBlue;
      Label1.Font.Color := clYellow
    end
end;
</code></pre>

<p>As you can see, the color of the label background and the text toggles from blue to yellow and vice-versa.</p>

<p>I want to do the same with Firemonkey but, all the search I made only says that FMX labels has no background color (I don't understand why), 
and don't give me a effetive clue how to do the same thing as in VCL. </p>

<p>Can someone write here the equivalent FMX code snippet? </p>

<p>Thank you. </p>