Отображение данных в DBGrid

procedure show;
begin
    with Form2.IBQuery1 do
      begin
        Form2.DBGrid1.DataSource.DataSet.close;
        SQL.Clear;
        SQL.Add('Select KOD_PODPICHIKA, FIO, ADRES ');
        SQL.Add('From PODPISCHIK');
        Form2.DBGrid1.DataSource.DataSet.open;
      end;
end;
 
procedure TForm7.Button2Click(Sender: TObject);
begin
Form7.Close();
end;
 
procedure TForm7.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
ShowMessage('Заполните все поля')
else
  begin
    with Form2.IBQuery1 do
      begin
        Form2.DataSource1.DataSet.Close;
        SQL.Clear;
        SQL.Add('INSERT into PODPISCHIK (KOD_PODPICHIKA, FIO, ADRES)');
        SQL.Add('VALUES (:kod, :fio, :adres)');
        Prepare;
        ParamByName('kod').AsString := Edit1.Text;
        ParamByName('fio').AsString := Edit2.Text;
        ParamByName('adres').AsString := Edit3.Text;
        Form2.DBGrid1.DataSource.DataSet.Open;
        ShowMessage('Запись добавлена!');
    end;
end;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
show;
end;

        SQL.Text := 'INSERT into PODPISCHIK (KOD_PODPICHIKA, FIO, ADRES) '+
                     'VALUES (:kod, :fio, :adres)';
        ParamByName('kod').AsString := Edit1.Text;
        ParamByName('fio').AsString := Edit2.Text;
        ParamByName('adres').AsString := Edit3.Text;
        Transaction.StartTransaction;
        ExecSQL;
        Transaction.Commit;

   if not Transaction.Active then
          Transaction.StartTransaction;
        try
        ExecSQL;
        finally
          if Transaction.Active then
          Transaction.Commit;
        end;