Felirat scrollozó komponens

procedure TScrollTitles.DoTimer;
begin
  Dec(FYPos);
  if FYPos<=(-abs(Font.Height)-2) then begin
    FYPos:=0;
    inc(FTopLine); if FTopLine>=FTitles.Count then FTopLine:=0;
  end;
  Invalidate;
end;

procedure TScrollTitles.Paint;
…
  Canvas.Brush.Style:=bsClear;
  Canvas.Font.Assign(Font);
  yp:=FYPos;  lp:=FTopLine;

  while yp<Height do begin
    if lp>FTitles.Count-1 then lp:=0;
    xp:=Width div 2 - Canvas.TextWidth(FTitles[lp]) div 2;
    Canvas.TextOut(xp, yp, FTitles[lp]);
    inc(yp, abs(Font.Height)+2);     inc(lp);
  end;
end;