Найти ошибку в Delphi, соединенной с БД

if DataModule3.DSOrganizazia.Modified then
DataModule3.DSOrganizazia.Post;
Form4.Hide;

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrls;
 
type
  TForm4 = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
uses Unit24, Unit3, Unit23;
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
if DataModule3.DSOrganizazia.Modified then
DataModule3.DSOrganizazia.Post;
Form4.Hide;
end;
 
end.

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;
 
type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Bevel1: TBevel;
    Panel4: TPanel;
    Bevel2: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bevel3: TBevel;
    Button4: TButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    procedure Panel3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
uses Unit1, Unit5, Unit2, Unit24, Unit4;
 
{$R *.dfm}
 
procedure TForm3.Panel3Click(Sender: TObject);
begin
Form1.Show;
Form3.Hide;
end;
 
procedure TForm3.Button4Click(Sender: TObject);
begin
Form2.Show;
end;
 
procedure TForm3.Panel4Click(Sender: TObject);
begin
Form5.Show;
Form3.Hide;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule3.DSOrganizazia.Append;
Form4.Show;
end;
 
end.

unit Unit24;
 
interface
 
uses
  SysUtils, Classes, DB, ADODB;
 
type
  TDataModule3 = class(TDataModule)
    DSOrganizazia: TDataSource;
    DSOborudovaniae: TDataSource;
    DSSotrudniki: TDataSource;
    DSKlient: TDataSource;
    DSZakaz: TDataSource;
    DSTovar: TDataSource;
    DSSklad: TDataSource;
    DSZakazKlient: TDataSource;
    DSSotrudnikiZakaz: TDataSource;
    DSTovarSklad: TDataSource;
    DSchekiKlient: TDataSource;
    DScheki: TDataSource;
    ADOOrganizazia: TADOTable;
    ADOConnection1: TADOConnection;
    ADOOborudovaniae: TADOTable;
    ADOSotrudniki: TADOTable;
    ADOKlient: TADOTable;
    ADOcheki: TADOTable;
    ADOOrganizazia_: TWideStringField;
    ADOOrganizaziaDSDesigner: TWideStringField;
    ADOOrganizaziaDSDesigner2: TWideStringField;
    ADOOrganizaziaDSDesigner3: TWideStringField;
    ADOOborudovaniae_: TWideStringField;
    ADOOborudovaniae_2: TWideStringField;
    ADOOborudovaniaeDSDesigner: TWideStringField;
    ADOOborudovaniae_3: TWideStringField;
    ADOSotrudniki_: TWideStringField;
    ADOSotrudniki_2: TWideStringField;
    ADOSotrudnikiDSDesigner: TWideStringField;
    ADOSotrudnikiDSDesigner2: TWideStringField;
    ADOSotrudnikiDSDesigner3: TWideStringField;
    ADOSotrudniki_3: TDateTimeField;
    ADOSotrudnikiDSDesigner4: TWideStringField;
    ADOKlient_: TWideStringField;
    ADOKlientDSDesigner: TWideStringField;
    ADOKlientDSDesigner2: TWideStringField;
    ADOKlientDSDesigner3: TWideStringField;
    ADOKlientDSDesigner4: TWideStringField;
    ADOKlient_2: TWideStringField;
    ADOcheki_: TWideStringField;
    ADOcheki_2: TWideStringField;
    ADOcheki_3: TWideStringField;
    ADOcheki_4: TWideStringField;
    ADOcheki__: TDateTimeField;
    ADOTovar: TADOTable;
    ADOTovar__: TWideStringField;
    ADOTovarDSDesigner: TMemoField;
    ADOTovar_: TWideStringField;
    ADOSklad: TADOTable;
    ADOSklad_: TWideStringField;
    ADOSklad__: TWideStringField;
    ADOSkladDSDesigner: TWideStringField;
    ADOSkladDSDesigner2: TWideStringField;
    ADOSklad_2: TWideStringField;
    ADOSklad_3: TWideStringField;
    ADOZakazKlient: TADOTable;
    ADOSotrudnikiZakaz: TADOTable;
    ADOchekiKlient: TADOTable;
    ADOTovarSklad: TADOTable;
    ADOZakazKlientDSDesigner: TWideStringField;
    ADOZakazKlientDSDesigner2: TWideStringField;
    ADOZakazKlientDSDesigner3: TWideStringField;
    ADOZakazKlientDSDesigner4: TWideStringField;
    ADOZakazKlient__: TWideStringField;
    ADOZakazKlient_: TDateTimeField;
    ADOZakazKlient__2: TDateTimeField;
    ADOZakazKlientDSDesigner5: TWideStringField;
    ADOZakazKlientDSDesigner6: TMemoField;
    ADOSotrudnikiZakazDSDesigner: TWideStringField;
    ADOSotrudnikiZakazDSDesigner2: TWideStringField;
    ADOSotrudnikiZakazDSDesigner3: TWideStringField;
    ADOSotrudnikiZakaz__: TWideStringField;
    ADOSotrudnikiZakaz_: TDateTimeField;
    ADOSotrudnikiZakaz__2: TDateTimeField;
    ADOSotrudnikiZakazDSDesigner4: TWideStringField;
    ADOTovarSklad__: TWideStringField;
    ADOTovarSkladDSDesigner: TMemoField;
    ADOTovarSkladDSDesigner2: TWideStringField;
    ADOTovarSkladDSDesigner3: TWideStringField;
    ADOTovarSklad_: TWideStringField;
    ADOchekiKlient_: TWideStringField;
    ADOchekiKlient_2: TWideStringField;
    ADOchekiKlient__: TDateTimeField;
    ADOchekiKlientDSDesigner: TWideStringField;
    ADOchekiKlientDSDesigner2: TWideStringField;
    ADOchekiKlientDSDesigner3: TWideStringField;
    ADOchekiKlientDSDesigner4: TWideStringField;
    ADOZakaz: TADOTable;
    ADOZakaz_: TWideStringField;
    ADOZakaz_2: TWideStringField;
    ADOZakaz__: TWideStringField;
    ADOZakaz_3: TDateTimeField;
    ADOZakaz__2: TDateTimeField;
    ADOZakazDSDesigner: TWideStringField;
    ADOZakazDSDesigner2: TMemoField;
    ADOZakaz_4: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DataModule3: TDataModule3;
 
implementation
 
{$R *.dfm}
 
end.