title: Firemonkey: How to align properly label on the right?
body: <p>If I do </p>
  
  <pre><code>RectangleCont.beginUpdate;
  
  myText1 := TText.Create(RectangleCont);
  myText1.parent := RectangleCont;
  myText1.text := 'a long text'; 
  myText1.Position.x := RectangleCont.width - myText1.width; // 150px for exemple
  myText1.align := TalignLayout.right;
  
  myText2 := TText.Create(RectangleCont);
  myText2.parent := RectangleCont;
  myText2.text := 'OK';
  myText2.Position.x := RectangleCont.width - myText1.width - myText2.width; // 50px for exemple
  myText2.align := TalignLayout.right;
  
  myText3 := TText.Create(RectangleCont);
  myText3.parent := RectangleCont;
  myText3.text := 'OK';
  myText3.Position.x := RectangleCont.width - myText1.width - myText2.width - myText3.width; // 0px for exemple
  myText3.align := TalignLayout.right;
  
  RectangleCont.EndUpdate;
  </code></pre>
  
  <p>I will have <code>&lt;myText1&gt;&lt;myText3&gt;&lt;myText2&gt;</code> instead of <code>&lt;myText3&gt;&lt;myText2&gt;&lt;myText1&gt;</code></p>
  
  <p><strong>Note</strong>: if I put shorter text in <code>myText1.text</code> then it works properly.</p>
  
  <p>Is there any workaround?</p>