帮我看一下面的代码哪里有问题?

Question

if printdialog1.Execute then
   begin
     assignprn(printtext);
     rewrite(printtext);
     printer.canvas.font.Name:=richedit1.font.Name ;
     printer.canvas.font.Size:=richedit1.font.size;
     printer.canvas.font.Color :=richedit1.font.Color ;
     //printer.canvas.font.style:=richedit1.font.style; // <-这段代码编译出错,提示类型不兼容
     for line:=0 to richedit1.Lines.Count-1 do
       writeln(printtext,richedit1.lines[line]);
       system.Close(printtext);
   end;