title: Effect marquee label in Delphi
body: <p>I'm doing a function for a marquee effect on a label, the label handed it, I put long texts and disable the "AutoSize" property.
  The marquee effect is bottom-up, the code that I have is:</p>
  
  <pre><code>procedure TForm1.Form_EffectsClick(Sender: TObject);
  begin
    Label1.Caption := 'This is right scrolling text' + sLineBreak +
      'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
      + sLineBreak + 'This is right scrolling text' + sLineBreak +
      'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
      + sLineBreak + 'This is right scrolling text' + sLineBreak +
      'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
      + sLineBreak + 'This is right scrolling text' + sLineBreak +
      'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
      + sLineBreak + 'This is right scrolling text' + sLineBreak +
      'This is right scrolling text' + sLineBreak;
      test.Enabled := true;
  end;
  
  procedure TForm1.testTimer(Sender: TObject);
  begin
    Label1.Top := Label1.Top - 10;
    if Label1.Top &lt;= 0 - Label1.Top then
    begin
      Label1.Top := Label1.Height;
    end;
  end;
  </code></pre>
  
  <p>Examples :</p>
  
  <p><a href="https://i.stack.imgur.com/wQRsQ.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wQRsQ.jpg" alt="enter image description here"></a></p>
  
  <p><a href="https://i.stack.imgur.com/Py8hT.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Py8hT.jpg" alt="enter image description here"></a></p>
  
  <p>The problem is that it starts and ends badly, begins below normal and ends incomplete because it shows the half and restarts without displaying the other part</p>
  
  <p>What is the problem ?</p>