Draw Smooth Font Scroller

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if label1.Left <= 4 - label1.Width/2 then
  label1.left:=3 else
  label1.Left := label1.Left-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if StrToInt(SpinEdit1.Text) < 101 then begin
  Panel1.Width := StrToInt(SpinEdit1.Text) * 2;
  Panel1.Left := Round((Form1.Width-Panel1.Width)/2)-5;
  Label1.Caption := Edit1.Text + Edit2.Text + Edit1.Text + Edit2.text;
  while
  Label1.Width < Panel1.Width * 2 do
  Label1.Caption := Label1.Caption + Edit1.Text + Edit2.text;
 end
 else
  ShowMessage('Enter a value less than 101 for the headband size.')
end;