Перенос столбцов из IBExpert в Delphi

unit DataModule1;
 
interface
 
uses
  SysUtils, Classes, DB, IBDatabase, IBQuery, IBCustomDataSet, IBStoredProc;
 
type
  TDM = class(TDataModule)
    IBDatabase1: TIBDatabase;
    IBStoredProc1: TIBStoredProc;
    IBQuery1: TIBQuery;
    IBTransaction1: TIBTransaction;
    DataSource1: TDataSource;
    IBQuery1KEY: TIntegerField;
    IBQuery1INN: TIBStringField;
    IBQuery1NAZVANIE_PREDPRIYATIA: TIBStringField;
    IBQuery1GOROD: TIBStringField;
    IBQuery1GOLOVNOE_FILIAL: TIBStringField;
    IBQuery1NOMER_TELEFONA: TIBStringField;
    IBQuery1PRIMECHANIE: TIBStringField;
    procedure IBQuery1AfterScroll(DataSet: TDataSet);
    end;
 
var
  DM: TDM;
 
implementation
 
uses dobavredakt1, TelSprav1;
 
{$R *.dfm}
 
procedure TDM.IBQuery1AfterScroll(DataSet: TDataSet);
begin
 //если форма для ввода и редактирования данных создана, то
  if ExiStsDobRed = true then
  begin
   //помещаем в INN инн
    DobRed.INN.Text:=DM.IBQuery1INN.Value;
   //помещаем название предприятия
    DobRed.Nazvanie_predpriyatia.Text:=DM.IBQuery1Nazvanie_predpriyatia.Value;
   //помещаем город
    DobRed.Gorod.Text:=DM.IBQuery1Gorod.Value;
   //помещаем головное_филиал
    DobRed.Golovnoe_filial.Text:=DM.IBQuery1Golovnoe_filial.Value;
   //помещаем номер телефона
    DobRed.Nomer_Telefona.Text:=DM.IBQuery1Nomer_telefona.Value;
   //помещаем примечание
    DobRed.Primechanie.Text:=DM.IBQuery1Primechanie.Value;
 
    end;
    end;
end.

unit TelSprav1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, Grids, DBGrids, StdCtrls,
   DataModule1,  dobavredakt1;
 
type
  TTelefonSprav = class(TForm)
    MainMenu1: TMainMenu;
    Fille: TMenuItem;
    Zakrit: TMenuItem;
    N1: TMenuItem;
    RedaktirZap: TMenuItem;
    DobavitZap: TMenuItem;
    UdalitZap: TMenuItem;
    Spravochniki: TMenuItem;
    SpravochnikGorodov: TMenuItem;
    Sortirovka: TMenuItem;
    PoFamilii: TMenuItem;
    PoTelefonu: TMenuItem;
    PoPredpriyatiu: TMenuItem;
    Spravka: TMenuItem;
    ToolBar1: TToolBar;
    Dob: TToolButton;
    ToolButton1: TToolButton;
    Redakt: TToolButton;
    ToolButton2: TToolButton;
    Udalit: TToolButton;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    Exiit: TToolButton;
    ToolButton4: TToolButton;
    Label1: TLabel;
    NazvaniePredpiyatia: TEdit;
    ToolButton5: TToolButton;
    Label2: TLabel;
    Telefon: TEdit;
    Naiti: TButton;
    DBGrid1: TDBGrid;
    procedure DobClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  TelefonSprav: TTelefonSprav;  
  ExiStsDobRed: boolean=false;
implementation
 
{uses DataModule1, dobavredakt1;}
 
{$R *.dfm}
 
procedure TTelefonSprav.DobClick(Sender: TObject);
begin
{если была нажата кнопка "Dobavit", то делаем
   переменную "ExiStsDobRed" активной}
     ExiStsDobRed:=true;
  //по нажатию кнопки "Dobavit" - "Tag=1"
     tag:=1;
  //делаем доступной кнопку "Dob"
     DobRed.Dobav.Visible:=true;
  //недоступной кнопку “red”
     DobRed.Redakt.Visible:=false;
  //открываем окно
     DobRed.ShowModal;
end;
 
end.