Delphi косяк

  private
  FNew: boolean;
  public
    { Public declarations }
  end;
 
var
  f_ned: Tf_ned;
 
implementation
 
{$R *.dfm}
 
uses add_arenda;
 
 
procedure Tf_ned.BitBtn1Click(Sender: TObject);
begin
f_add_arenda.Show;
end;
 
procedure Tf_ned.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
IBQuery1.Close;
IBDatabase1.Connected:=false;
end;
 
procedure Tf_ned.FormShow(Sender: TObject);
var
  FIniFile: TIniFile;
begin
    try
  FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'config.ini');
  try
  IBDatabase1.DatabaseName := FIniFile.ReadString('Base', 'Path', '');
  finally
  FInifile.Free;
  end;
  IBDatabase1.Connected :=true;
  with IBQuery1 do
  begin
    SQL.Text:='select * from zhilie';
    Open;
  end;
    except
      on E:Exception do
       begin
         Application.MessageBox(PChar(E.Message), 'Ошибка', MB_ICONERROR);
         Halt;
       end;
end;
  end;
 
end.

 private
    FNew: boolean;
  public
    { Public declarations }
  end;
 
var
  f_add_arenda: Tf_add_arenda;
 
implementation
 
{$R *.dfm}
 
uses obiekt;
 
procedure Tf_add_arenda.BitBtn1Click(Sender: TObject);
begin
FNew:=true;
  try
    with f_ned.IBQuery2 do
    begin
      if FNew then
        f_ned.DBGrid1.Columns:= SQL.Text:= 'execute procedure PROC_ZHIL(-1, ''' + Edit1.Text + ''', ' + Edit2.Text + ', ''' +
        Edit3.Text + ''', ' + Edit4.Text + ', ' + Edit5.Text + ', ' + Edit6.Text + ', ''' +
        Edit7.Text + ''', ''' + Edit8.Text + ''', ' + Edit9.Text + ''', ' + Edit10.Text + ''', ''' +
        Edit11.Text + ''', ' + Edit12.Text + ', ''' + Edit13.Text + ''')'
    else
        SQL.Text := 'execute procedure PROC_ZHIL('+f_ned.IBQuery1.FieldByName('ID').AsString + ', ''' + Edit1.Text + ''', ' +
        Edit2.Text + ', ''' +
        Edit3.Text + ''', ' + Edit4.Text + ', ' + Edit5.Text + ', ' + Edit6.Text + ', ''' +
        Edit7.Text + ''', ''' + Edit8.Text + ''', ' + Edit9.Text + ''', ' + Edit10.Text + ''', ''' +
        Edit11.Text + ''', ' + Edit12.Text + ', ''' + Edit13.Text + ''')';
        Transaction.StartTransaction;
        ExecSQL;
        Transaction.Commit;
        Transaction.Active:=false;
    end;
    f_ned.IBQuery1.Close;
    f_ned.IBQuery1.Open;
  except
    if f_ned.IBQuery2.Active then
      f_ned.IBQuery2.Transaction.Rollback;
  end;
end;
 
procedure Tf_add_arenda.FormShow(Sender: TObject);
begin
  Label14.Caption := DateToStr(Date)
end;
 
end.

f_ned.DBGrid1.Columns:= SQL.Text:= 'execute procedure PROC_ZHIL...