[Edinora]

Добрый день.
У меня в 1й форме заполняется таблица. А во второй форме корректируются и об считываются вводимые значения.
мне надо что бы при закрытии второй формы срабатывала процедура заполнения таблицы.

Код:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Form1.TablD;
end;

и в первой форме:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, rkGlassButton, CollapsePanel, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TrkGlassButton;
    btn2: TrkGlassButton;
     _sg1: TStringGrid;
    ImEmblem: TImage;
    img1: TImage;
    edt1: TEdit;
    lbl1: TLabel;

    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

   private
    { Private declarations }

   public
    { Public declarations }
    FileName: string; 
   end;

var
  Form1: TForm1;
  num: Integer;

implementation


uses Unit3, Unit2, Unit00;

{$R *.dfm}

procedure TablD;
begin
// что-то считает и выводит 
end;

Не запускается, во второй форме при запуске выдает ошибку:[Error] Unit2.pas(175): Undeclared identifier: 'TablD'

[Alegun]

Пропишите её в секции Type:

Код:

type
  TForm1 = class(TForm)
    btn1: TrkGlassButton;
    btn2: TrkGlassButton;
     _sg1: TStringGrid;
    ImEmblem: TImage;
    img1: TImage;
    edt1: TEdit;
    lbl1: TLabel;

    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

    procedure TablD;


   private
    { Private declarations }

   public
    { Public declarations }
    FileName: string; 
   end;

А затем выполните комплит класс эт курсор