在delphi中怎么实现滚屏

在delphi中如何实现滚屏？
因为我的数据很多，而要用电视来显示，所以只能以滚屏的方式才能让人家看到要看的数据，请问大家如何实现滚屏技术？

[解决办法]
用一个timer来控制就可以了

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ADODataSet1.RecNo:=ADODataSet1.RecNo+10;
end;
[解决办法]
if ADODataSet1.RecordCount=ADODataSet1.RecNo then
begin
ADODataSet1.RecNo := 1;
end;
ADODataSet1.RecNo := ADODataSet1.RecNo+10;


我是把二楼的稍做修改,试了一下还是要以滚屏