title: How to create wavy text animation?
body: <p>I am having one Delphi XE2 project to show scrolling text. My code is as follows :</p>
  
  <pre><code>unit Unit1;
  
  interface
  
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
  
  type
    TForm1 = class(TForm)
      Label1: TLabel;
      Timer1: TTimer;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    Label1.Caption := 'This is right scrolling text ';
    Timer1.Enabled := true;
  end;
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
    S: String;
  begin
    S := Label1.Caption;
    S := S[Length(S)] + Copy(S, 1, Length(S) - 1);
    Label1.Caption := S;
  end;
  
  end.
  </code></pre>
  
  <p>Using the following code the text scrolls perfectly in 2d along to Y axis.</p>
  
  <p><strong>How to scroll text in <code>Sinusoidal Wave</code> ?</strong></p>
  
  <p><img src="https://i.stack.imgur.com/wErCP.jpg" alt="Sample Wavy Text"></p>