使用printdialog进行打印，总页数如何得到。对于help中的代码提出疑问

Question

以下是delphi5帮助上的代码，下面红色部分的对象是怎么生成的，有知道的请告诉一下，着急，谢谢。
procedure TForm1.Button1Click(Sender:TObject);var
  I, Start, Stop: Integer;
begin
  PrintDialog1.Options := [poPageNums, poSelection];
  PrintDialog1.FromPage := 1;
  PrintDialog1.MinPage := 1;
  PrintDialog1.ToPage := PageControl1.PageCount;
  PrintDialog1.MaxPage := PageControl1.PageCount;
  if PrintDialog1.Execute then
  begin
    { 印刷する範囲を決める }
    with PrintDialog1 do     begin
      if PrintRange = prAllPages then
        begin
        Start := MinPage - 1;
        Stop := MaxPage - 1;
      end
      else if PrintRange = prSelection then
      begin
        Start := PageControl1.ActivePage.PageIndex;
        Stop := Start;
        end
      else  { PrintRange = prPageNums }      begin
        Start := FromPage - 1;
        Stop := ToPage - 1;
      end;
    end;
    { ページを印刷する }
    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        PageControl1.Pages[I].PaintTo(Handle, 10, 10);
        if I <> Stop then          NewPage;
      end;
      EndDoc;
    end;
  end;
end;

Answer 1

这个也是delphi的控件
在帮助里面输入TPageControl可以查到

Answer 2

PageControl1 肯定是界面上的标签页了
一般都是直接拖放上去

Answer 3

谢谢，回答。TPageControl是一个控件，他应该还需要create，他怎么能和printdialog控件关联。得到总共多少页数。这是我想知道的。我觉得帮助给的代码不全。在帮助的基础上加下面的代码可以使用printdialog，但是pagecontrol1这个对象是怎么生成的？
printDialog: TPrintDialog;
printDialog := TPrintDialog.Create(Self);