简单程序调试？

Question

以下的程序相信大家都看的明白，但是有错误！
本人刚学，找不到错误的所在，请教大家，希望大家帮个忙！
谢谢！代码：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    ScrollBar1: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
 i : integer ;                                         //错误
begin
  PageControl1.TabWidth := PageControl1.ClientWidth div 4-1 ;
  PageControl1.ActivePage := PageControl1.Pages[0] ;
  with ScrollBar1 do
  begin
    Max := PageControl1.PageCount - 1 ;
    SmallChange := 1 ;
    LargeChange := PageControl1.ClientWidth div PageControl1.TabWidth ;
  end ;
end ;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  with Sender as TPageControl1 do                      //错误
  ScrollBar1.Position := ActivePage.PageIndex ;        //错误
end;end.

Answer 1

i : integer ; 其中I与“：”之间有空格，应该去掉with用法错误