Draw Vertical Smooth Font Scroller

var
  Form1: TForm1;
  s : Integer = 1;
  h : integer;

//

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  with Label1 do
  begin
  Top := Top - s;
  if Top = (0 - Height) then
  Top := h;
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 h := Form1.ClientHeight -  20;
  Label1.Top := h;
end;