delphi7 打印问题

在拍奖结束后  加打印 怎么加呢
procedure TFmMain.bitstartClick(Sender: TObject);
begini:=0;if lbviews.Caption<>'0' then
beginTimer1.Enabled:=true;
  //bitstart.SetFocus;
bitstart.Visible:=false;
 //bitstart.SetFocus;
bitstop.Visible:=true;MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Open;
MediaPlayer1.Play;
//Image1.Picture:=nil;
//Image1.Picture.LoadFromFile('C:\³é½±\FilmAwards\Photo\ÅĽ±.gif');//lbviews.Caption;
ernietimes.caption:='Äú»¹ÓÐ'+lbviews.Caption+'´ÎÅĽ±»ú»á';
end
else
begin
  MediaPlayer2.Stop;
  MediaPlayer3.Stop;
  MediaPlayer1.Stop;
end;
if lbviews.Caption='0' then
begin
  Application.MessageBox('拍奖结束','提示信息',mb_OK);  WindowState:=wsNormal;
  Panel1.Visible:=true;
  bitclear.Click;
//Image1.Picture.LoadFromFile('Photo\ллÄú.gif');
   edsalesamount.SetFocus;
end;end;