本人的考试题，希望大家帮忙~！

1、 定义类Tday,类中有三个整型域成员：year,month,day，两个方法成员：过程SetValue(m,d,y:integer)和函数LeapYear:Boolean。SetValue的功能是给三个域成员赋值，LeapYear的功能是判断year域是否润年。在主程序中创建类的实例，通过方法设置2003年12月26日，通过方法判断是否润年并显示输出。
2、 现已有类TFigure，定义如下：
Type
   TFigure=class(TObject)
   FArea:real;
    procedure Area;
    procedure DisplayArea;
 end;
procedure TFigure.Area;
  begin
    FArea:=0;
  end;
procedure TFigure.DisplayArea;
  begin
    writeln(FArea:6:2);
  end;
要求创建TFigure类的子类Trectangle，Trectangle子类有长FLength、宽FWidth域和Area方法，其中Area由FLength和FWidth域求矩形实例的面积，定义一个矩形对象并在主程序中显示该矩形的面积
3、 设计如下图所示Windows应用程序界面，从List2中拖拽选项到List1中，同时List2中该选项被删除；从List1、List2中拖拽选项到回收站图标处，对应选项同时被删除。
 4、 设计如下图所示Windows应用程序界面，可以从List1中选择若干选项（可多选），点击〉〉按钮可移到List2中，同时List1中被选中的选项被删除；List2和〈〈按钮功能类似。 5、 设计如下图所示Windows应用程序界面，主菜单设计如下。
要求： ①通过主菜单及工具栏按钮修改“工具栏应用”的样式
②各个样式选项前应根据情况添加或删除复选标志
③对齐各菜单前也应更具情况添加或删除单选标记
④工具栏按钮与相应菜单向关联，Color为普通按钮；B、I、U按钮允许弹起；L、R、C按钮具有排他性质
⑤组合框可以控制文本字体大小8、10、12、14、18、24号
 6、设计如下图所示Windows应用程序界面，数据集使用TTable组件、连接rsgl.dbm数据库的职工工资数据表，设置相应属性使数据集只包括津贴是280的人员信息。编写按钮的事件响应代码把所有津贴为280元记录的津贴涨10%
 7、设计如下图所示Windows应用程序界面，数据集使用TTable组件、连接rsgl.dbm数据库的职工工资数据表，编写按钮的事件响应代码删除最后一条记录，若记录集中没有记录可以删除，使用异常保护块处理该异常