今天經理給了我一個任務：（大俠都來看看呀，解決高分相送）

1. 统计最新的记录（是离现在最近的一天的记录吗？）
   Query1.close;
   Query1.sql.clear;
   Query1.sql.add('select * from MyTable.dbf where 日期=(select max(日期) from MyTable.dbf');
   Query1.open;
2. 大屏幕（是全屏效果吗？）
   Form1的BorderStyle属性设为bsNone
   Form1的WindowState属性设为wsMaximized
   有必要的话，FormStyle属性设为fsStayOnTop，保证一直在最前
3. 客户填写欢迎词
   放一个Edit1让他填，放一个Label1显示他填的
   在Edit1的onchange中写 Label1.caption:=Edit1.text;
4. 每条记录显示3分钟
   放一个Label2显示记录，放一个Timer1，interval设为180000，ontimer里写
   while not Query1.eof do
   begin
    Label2.Caption:=Query1.FieldByName('你的字段名').asstring;
    Query1.next;
   end;
5. 从右向左移动
   放一个Timer2，interval设为200，ontimer里写
   Label2.left:=Label2.left-5;
   开始时Timer2.enabled:=false，
   if length(Label2.Caption)>40 then timer2.enabled:=true
   else timer2.enabled:=false;
6. 显示欢迎词时，Label2.visible:=false;
   显示数据时，  Label1.visible:=false;