Не работает.не сохраняет

[lukjanchuks]

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Data, Priv, UchetZap, helpPogr, ComObj, Otchet;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Halt;   //Выход
end;

//Вставляет Значение страны в запрос
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
DataModule1.PutevkaSQL.Active:=False;
DataModule1.PutevkaSQL.Parameters.ParamByName('Strana').Value:=DBLookupComboBox1.KeyValue;
DataModule1.PutevkaSQL.Active:=active;
end;

//Делает видимым Комментарий
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
Label14.Visible:=true;
DBMemo1.Visible:=true;
end;

//Вставка новой записи
procedure TForm1.N13Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Insert;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Insert;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Insert;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Insert;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Insert;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Insert;
end;

//удаление записи
procedure TForm1.N14Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Delete;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Delete;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Delete;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Delete;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Delete;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Delete;
end;

//Открытие окна разработчика
procedure TForm1.N6Click(Sender: TObject);
begin
OProgramme.ShowModal;
end;

//В зависимости от переключателя отображается таблица
procedure TForm1.DBRadioGroup1Change(Sender: TObject);
begin
if DBRadioGroup1.ItemIndex=0 then DBGrid1.DataSource:=DataModule1.DokumentiSource;
if DBRadioGroup1.ItemIndex=1 then DBGrid1.DataSource:=DataModule1.OteliSource;
if DBRadioGroup1.ItemIndex=2 then DBGrid1.DataSource:=DataModule1.TransportSource;
end;

//Открытеи формы отчета
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
Report.ShowModal;
end;

//Вставка новой записи
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Append;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Append;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Append;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Append;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Append;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Append;
end;




procedure TForm1.ToolButton6Click(Sender: TObject);
begin
halt;   //Выход
end;

//Сохранить

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
DataModule1.Putevka.FieldByName('ФИО').AsString:=DBLookupComboBox3.text;
DataModule1.Putevka.FieldByName('Страна').AsString:=DBLookupComboBox1.KeyValue;
DataModule1.Putevka.FieldByName('НомерМаршрута').AsString:=DBLookupComboBox2.KeyValue;
DataModule1.Putevka.FieldByName('Стоимость').AsInteger:=StrToInt(DBEdit10.Text);
DataModule1.Putevka.Post;
end;

end.

[Stilet]

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
DataModule1.Putevka.Edit;
...