delphi panel 隔段时间展示不同的内容

delphi panel 隔段时间显示不同的内容
大家好！
  我想实现以下的功能。
  一张表中有十条记录。我想每隔10秒钟就将一条记录以字符串的形式放到panel caption 属性中。当到最后一笔记录的时候，程序又要从第一条开始显示！

谢谢！

[解决办法]
新建工程、将定时器Timer1、Panel1、ADOQuery1放入窗体，将Timer1.Enabled设为false、Timer1.Interval设为10000，设置好 ADOQuery1 与数据库的连接，摆放好Panel1后，双击定时器Timer1并输入如下代码：

Delphi(Pascal) code

procedure TForm1.Timer1Timer(Sender: TObject);var i:integer;    s:string;begin  for i:=0 to ADOQuery1.FieldCount-1 do    s:=s+ADOQuery1.Fields.Fields[i].AsString+' ';  Panel1.Caption:=s;  if ADOQuery1.Eof then    ADOQuery1.First  else    ADOQuery1.Next;end;
[解决办法]
定时器事件代码改为：
Delphi(Pascal) code
procedure TForm1.Timer1Timer(Sender: TObject);var i:integer;    s:string;begin  for i:=0 to ADOQuery1.FieldCount-1 do    s:=s+ADOQuery1.Fields.Fields[i].AsString+' ';  Panel1.Caption:=s;  ADOQuery1.Next;  if ADOQuery1.Eof then ADOQuery1.Firstend;