Ошибка во время компиляции

unit Postav_;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, DBCtrls, Mask;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    Tspz: TADOTable;
    DSspz: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    btn5: TBitBtn;
    btn6: TBitBtn;
    btn8: TBitBtn;
    btn7: TBitBtn;
    btn9: TBitBtn;
    btn4: TBitBtn;
    btn2: TBitBtn;
    TableTspzKod: TAutoIncField;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    TDKod: TDBEdit;
    TDNazvanie: TDBEdit;
    TDPostavshik: TDBEdit;
    TDData: TDBEdit;
    TDStoimost: TDBEdit;
    TDGorod: TDBEdit;
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
 
procedure TForm1.btn5Click(Sender: TObject);
begin
Tspz.Insert;
end;
 
procedure TForm1.btn6Click(Sender: TObject);
begin
Tspz.Delete;
end;
 
procedure TForm1.btn8Click(Sender: TObject);
begin
ShowMessage('Внимание! Выключен режим редактирования!');
TDNazvanie.ReadOnly:=True;
TDPostavshik.ReadOnly:=True;
TDData.ReadOnly:=True;
TDStoimost.ReadOnly:=True;
TDGorod.ReadOnly:=True;
end;
 
procedure TForm1.btn7Click(Sender: TObject);
begin
ShowMessage('Внимание! Включен режим редактирования!');
TDNazvanie.ReadOnly:=False;
TDPostavshik.ReadOnly:=False;
TDData.ReadOnly:=False;
TDStoimost.ReadOnly:=False;
TDGorod.ReadOnly:=False;
end;
 
procedure TForm1.btn9Click(Sender: TObject);
begin
Form1.Print;
end;
 
procedure TForm1.btn4Click(Sender: TObject);
begin
Tspz.Locate('Postavshik', Edit2.Text, [loPartialKey]);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
Tspz.Locate('Nazvanie', Edit1.Text, [loPartialKey]);
end;
 
 
end.