delphi 7打印不了的问题

程序代码：
procedure TForm1.Button2Click(Sender: TObject);begin
if PrintDialog1.Execute then
begin
  Printer.BeginDoc;
  printer.Canvas.rectangle(0,0,100,100);
  Printer.EndDoc;
  end;
end;
end.
编译能通过可是按了按钮后选者打印机却出现打印到文件的输入框，给输入框输入名字后却不是打印而是在程序的文件夹下面生成一个什么软件都不能打开的文件，郁闷，Printer.BeginDoc;这句好象是引起的，我电脑的环境是WINDOW XP +DELPHI 7.0