Добавление таблицы данных к программе расчета

if N1=N2 then
      if E1>E2 then
         begin
         d:=270-180+f;
              if d>360 then
                  begin
                  d:=d-360;
                  end;
              if d<0 then
                  begin
                  d:=360+d;
                  end;
         z:=(sin(d*Pi/180-Pi))/(cos(d*Pi/180-Pi))*(sin(N2*Pi/180));
         w:=Arctan(z);
         E:=E2-((w*180)/Pi);
              if E<0 then
              if (d>90) and (d<270) then
                  begin
                  Y:=0-E;
 
                  //вывод результата
                  label20.Caption:='270';
                  label21.Caption:=FloatToStr(d);
                  label22.Caption:='W  '+Formatfloat('0.0',Y);
 
// вывод названий
 
if Y>0.0 then
if Y<0.9 then
begin
label23.Caption:= '_название 1_';
 
if Y>0.9 then
if Y<2.5 then
begin
label23.Caption:= '_название 2_';

uses Unit2; (Unit2 ето названия твоего модуля второй формы )

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  Zak = record
    zagolovok, data: string[20];
 
  end;
 
var
  Form1: TForm1;
 
  f: file of Zak;
  r: Zak;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  AssignFile(f, ExtractFilePath(ParamStr(0)) + 'myFile.txt');
  Rewrite(f);
 
  for i := 0 to StringGrid1.ColCount-1 do
  begin
    r.data := StringGrid1.Cells[i, 1];
    Write(f, r);
 
  end;
  CloseFile(f);
 
END;
 
procedure TForm1.Button2Click(Sender: TObject);
Var
  n: integer;
begin
 
  AssignFile(f, ExtractFilePath(ParamStr(0)) + 'myFile.txt');
  Reset(f);
 n:=0 ;
  While not eof(f) do
  BEGIn
    Read(f, r);
    StringGrid1.Cells[n, 1] := r.data;
    Inc(n);
  ENd;
  CloseFile(f);
 
end;
 
end.