小弟刚学Delphi语言，遇到两个程序题，那位高手帮忙解答一下，不胜感激！
题一 
 ＿＿＿＿＿date;

 ＿＿＿＿＿  

type  TDate  =  ＿＿＿＿＿    
Public
  Function getYear():integer;
  Function getMonth():integer;
…
Private
  …
Protected
  …
＿＿＿＿＿  

Implementation

Function TDateTime.getYear():integer;
Begin;
＿＿＿＿＿ :=2008;
End;
题二
Unit unit1;

Interface
  Uses ………..;
  TForm1 = Class(TForm)
Public
  …
Private
  …
Protected
  Procedure drawIt(canvas:TCanvas);
  Procedure paint;  ＿＿＿＿＿   ;
  Procedure print;
End;
 ＿＿＿＿＿ form1:TForm1;

Implementation

procedure TForm1.drawIt(canvas:TCanvas);
begin
  …
end;

procedure TForm1.paint;
begin
  …
end;

procedure print;
begin
  printer. ＿＿＿＿＿  ;
  drawIt(  ＿＿＿＿＿  );
  printer.  ＿＿＿＿＿  ;
end;
 …
end.
 就是空白的地方需要补填起来，是作业题，帮帮忙！