передача значения переменной между формами

// modul_1;
var
  NastrForm1: TNastrForm1;
  Vr:integer;
  implementation
 
uses modul_2;
...
procedure TNastrForm1.ButtonObzorClick(Sender: TObject);// кнопка обзор
begin
....
   Vr:=StrToInt(VremyaTstEdit.Text);  // (Vr:=2 например )
end;

// modul_2;
var
  TestForm: TTestForm;
implementation
 
uses modul_1;
....
Edit.Text:=IntToStr(Vr); ( показывает 0)

unit modul_1;  // нужен для создания файла теста в нужное время в нужном месте...
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TNastrForm1 = class(TForm)
    LabelPrivet: TLabel;
    LabelMesto: TLabel;
    EditMesto: TEdit;
    ButtonObzor: TButton;
    ButtonSozd: TButton;
    SaveDialog: TSaveDialog;
    VremyaTstEdit: TEdit;
    OgranichVrLabel: TLabel;
    procedure ButtonObzorClick(Sender: TObject);
    procedure ButtonSozdClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  NastrForm1: TNastrForm1;
  FileNameOb:AnsiString;// переменная с путем к файлу из кнопки обзор
  FileName:AnsiString;  // переменная с путем из окна edit (для того чтобы можно было писать путь в окне без обзора)
  Vr:integer;
  implementation
 
uses modul_2;
 
{$R *.dfm}
 
procedure TNastrForm1.ButtonObzorClick(Sender: TObject);// кнопка обзор
begin
if SaveDialog.execute() then FileNameOb:=SaveDialog.FileName ; // запоминаем путь в переменной
EditMesto.Text:=FileNameOb;  // и высвечиваем его в окне edit
  Vr:=StrToInt(VremyaTstEdit.Text); // <-------------------------------------------------------------
end;
 
procedure TNastrForm1.ButtonSozdClick(Sender: TObject); // кнопка создать тест
var f:TextFile;     // !!!! Файловая переменная !!! для работы с текстом... потом лучше поставить нетипизированную
    Path:string;
begin
 FileName:=EditMesto.Text;// берем имя файла из edit'a
 Path:=ExtractFilePath(FileName);// отделяем от него директорию
 if DirectoryExists(Path) then  // если она существует создаем в ней файл
  begin
   AssignFile(f,FileName); // Связывает переменную с путем
   Rewrite(f);// Создание файла , Если он есть ,то перезапись!!!! тут нужно вставить предупреждение!!!!
   CloseFile(f);
   TestForm.Show;
   NastrForm1.Hide;
  end
 else ShowMessage('Неправильно введен путь к файлу либо нет прав доступа к директории');
 
end;
 
end.

unit modul_2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtnrs, Menus, ImgList;
 
type
  TTestForm = class(TForm)
    VoprMemo: TMemo;
    OtvLabel: TLabel;
    VoprLabel: TLabel;
    Timer1: TTimer;
    NextVoprBtn: TBitBtn;
    NextOtvBtn: TBitBtn;
    SaveBtn: TBitBtn;
    CloseTstBtn: TBitBtn;
    SoderjTstTreeView: TTreeView;
    GlavMenuPageControl: TPageControl;
    TabSheet1: TTabSheet;
    TestPanel: TPanel;
    UpravTestPanel: TPanel;
    SoderjimoeTestaPanel: TPanel;
    SoderjanieVoprPanel: TPanel;
    SoderjTstLabel: TLabel;
    SoderjVoprLabel: TLabel;
    ScrollBox1: TScrollBox;
    soobsheniaLbl: TLabel;
    OtvCheck0: TCheckBox;
    NewOtvMemo0: TMemo;
    PrizhimnayaPanel: TPanel;
    ToplineBevel1: TBevel;
    ToplineBevel2: TBevel;
    RightlineBevel: TBevel;
    TestLabel: TLabel;
    ElemTestLabel: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Bevel2: TBevel;
    ComboBoxEx1: TComboBoxEx;
    ImageList1: TImageList;
    procedure NextOtvBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CloseTstBtnClick(Sender: TObject);
    procedure NextVoprBtnClick(Sender: TObject);
    procedure SaveBtnClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
   // procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
   procedure ZapisVlist (); // объява функции для записи в файл
   function ProverkaNaZapolnenie():integer; // функция проверяет введен ли вопрос,ответ и помечен ли правильный
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  TestForm: TTestForm;
  i:integer;// счетчик введенных ответов
  StrList: TStringList; // это для списка
  a: Integer;  // переменная для циклов
  nomerVopr:integer;// номер вопроса
implementation
 
uses modul_1;
 
{$R *.dfm}
 
procedure TTestForm.CloseTstBtnClick(Sender: TObject);
begin
Beep; //звук
case MessageDlg('Тест не сохранен , Вы уверены что хотите выйти ?',mtInformation,mbOkCancel,0) of
idOk:
   begin
    NastrForm1.Close;  //если нажал ок то закрываем приложение
    DeleteFile(FileName);// и удаляем файл
   end;
idCancel: Abort; // если отмена игнор нажатия
end;
 
end;
procedure TTestForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   Beep; //звук
   case MessageDlg('Тест не сохранен , Вы уверены что хотите выйти ?',mtInformation,mbOkCancel,0) of
   idOk:
   begin
    NastrForm1.Close;  //если нажал ок то закрываем приложение
    DeleteFile(FileName);// и удаляем файл
   end;
idCancel: Abort; // если отмена игнор нажатия
end;
end;
procedure TTestForm.FormCreate(Sender: TObject);
begin
   nomerVopr:=1;
   i:=0; // нач значение для счетчика имен
   StrList:=TStringList.Create; //создаем лист
   StrList.Sorted:=False;//отключаем сортировку
   StrList.Duplicates:=dupError;// при дублировании строк-ошибка
   SoderjTstTreeView.Items.Clear;// вроде очистка списка ???
 SoderjTstTreeView.Items.Add(nil,IntToStr(Vr)); // <--------------------------------- например вставим сюда 
end;
 
procedure TTestForm.NextOtvBtnClick(Sender: TObject);
var
   NewOtvMemo:TMemo; //объект мемо
   OtvCheck:TCheckBox; // CheckBox
   Visota:integer; //для высоты
   target: tcomponent; // для поиска компонента
begin
   target := findcomponent('NewOtvMemo'+IntToStr(i));//находим компонент i-ый(прошлый)
   Visota:=TMemo(target).Top;//берем его высоту от края формы
   NewOtvMemo:=TMemo.Create(TestForm);// создаем объект мемо
   OtvCheck:=TCheckBox.Create(TestForm);//и checkBox
   NewOtvMemo.Parent:=ScrollBox1;// ставим родителя - форму
   OtvCheck.Parent:=ScrollBox1;// аналогично
   NewOtvMemo.Left:=5;// отступы
   OtvCheck.Left:=494;// слева
   OtvCheck.Width:=15;
   NewOtvMemo.Top:= Visota+51; //высоту на 51 больше т.к 41 высота мемо т.е отступы 10 между ними
   OtvCheck.Top:=Visota+61;// аналогично
   NewOtvMemo.Width:=476; // ширина
   NewOtvMemo.Height:=41;// и высота
   i:=i+1; // счетчик для названия компонентов
   NewOtvMemo.Name:='NewOtvMemo'+IntToStr(i); //даем им
   OtvCheck.Name:='OtvCheck'+IntToStr(i); //            имена
   (Findcomponent('NewOtvMemo'+IntToStr(i)) as TMemo).lines.clear;
    ScrollBox1.ScrollInView(PrizhimnayaPanel);
   (Findcomponent('NewOtvMemo'+IntToStr(i)) as TMemo).SetFocus;
   (Findcomponent('OtvCheck'+IntToStr(i)) as TCheckBox).Caption:='';// и CheckBox
end;
 
procedure TTestForm.NextVoprBtnClick(Sender: TObject);
var
 NumOsh:integer;
begin
// сначала проверим на правильность заполнения ?
NumOsh:=ProverkaNaZapolnenie();
 
//если все норм сохранение теста в файле*************************************************
 if (NumOsh=0) then
   begin
    ZapisVlist(); // сохраняем все в файл
    SoderjTstTreeView.Items.AddChild(SoderjTstTreeView.Items.Item[0],('вопрос '+IntToStr(nomerVopr)));
    SoderjTstTreeView.FullExpand;
    nomerVopr:=nomerVopr+1;
     // *****************очищаем форму для нового вопроса********
     VoprMemo.Lines.Clear; //очищаем вопрос
     NewOtvMemo0.Lines.Clear; //и ответ
     OtvCheck0.Checked:=false; // снимаем галку если она есть
     for a := 1 to i do   // цикл удаления компонентов для приведения ее в нач. состояние
      begin
       (Findcomponent('NewOtvMemo'+IntToStr(a)) as TMemo).Free;//удаляем ответы
       (Findcomponent('OtvCheck'+IntToStr(a)) as TCheckBox).Free; // и чекбоксы
      end;
     i:=0;// сбрасываем счетчик
   end;
end;
//********************************************************************
//*****************функция проверяет на правильность заполнения*******
 
function TTestForm.ProverkaNaZapolnenie: integer;
var
 oshibka : integer;
 otvetest : boolean;
begin
  if (VoprMemo.Text='') then
    begin
     Result:=1;// если вопрос не заполнен код ошибки =1
     soobsheniaLbl.Visible:=true; // мигаем сообщением
     soobsheniaLbl.Caption:=('Вопрос не заполнен');
     Timer1.Tag:=3;
     Timer1.Enabled:=true;
    end
  else
    begin
     oshibka:=0;  // проверка на заполнение всех окон ответами
     for a := 0 to i do
       if ((Findcomponent('NewOtvMemo'+IntToStr(a)) as TMemo).Text='') then oshibka:=1; // если нет , код ошибки = 2
      if (oshibka=1) then  // если хоть одно не заполнено помечаем oshibka=1 и мигаем
       begin
         Result:=2; // при этом код ошибки ставим =2
         soobsheniaLbl.Visible:=true;
         soobsheniaLbl.Caption:=('Не все ответы заполнены ');
         Timer1.Tag:=3;
         Timer1.Enabled:=true;
       end
      else
// если и тут все нормально, проверим помечен ли правильный ответ ?
       begin
        otvetest:=false;// выставляем заранее на 'не помечен'
        for a := 0 to i do // И проверяем все по очереди
        if ((Findcomponent('OtvCheck'+IntToStr(a)) as TCheckBox).Checked=true) then otvetest:=true;//если какой-то помечен , то меняем на 'помечен'
        if (otvetest=false) then
          begin
           Result:=3;   // если не поставлен - мигаем и код ошибки =3
           soobsheniaLbl.Visible:=true;
           soobsheniaLbl.Caption:=('Вы не пометили правильный ответ');
           Timer1.Tag:=3;
           Timer1.Enabled:=true;
          end
// если все правильно, код ошибки = 0
       else Result:=0;
       end;
    end;
end;
 
procedure TTestForm.SaveBtnClick(Sender: TObject);
begin
 if (ProverkaNaZapolnenie()=0) then
  begin
   ZapisVlist();
   StrList.SaveToFile(FileName); // сохраняем все это в файл
   ShowMessage('Тест успешно сохранен');
   StrList.Free;// очищаем список
   NastrForm1.Close; //закрываем прг
  end;
end;
 
procedure TTestForm.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
Scrollbox1.VertScrollBar.Position:= Scrollbox1.VertScrollBar.Position+4;
end;
 
procedure TTestForm.ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
 Scrollbox1.VertScrollBar.Position:= Scrollbox1.VertScrollBar.Position-4;
end;
procedure TTestForm.Timer1Timer(Sender: TObject); // сама процедура мигания
begin
 If (Timer1.Tag=0) then Timer1.Enabled:=false // цикл в котором tag уменьшается на единицу и выходим из прц после tag=0
 else
  begin
   if soobsheniaLbl.visible=true then soobsheniaLbl.visible:=false  // если видимо - не видимо и наоборот
   else soobsheniaLbl.visible:=true;
   Timer1.Tag:=Timer1.Tag-1;
  end;
end;
 
procedure TTestForm.ZapisVlist;
begin
StrList.Add('###'+IntToStr(nomerVopr)+'###');
   StrList.AddStrings(VoprMemo.Lines);//добавляем  из вопроса
   StrList.Add('###');
   for a := 0 to i  do   // цикл считывает из ответов + символы конца/правильности
     begin
      StrList.AddStrings((Findcomponent('NewOtvMemo'+IntToStr(a)) as TMemo).lines);
      if ((Findcomponent('OtvCheck'+IntToStr(a)) as TCheckBox).Checked=true) then
        StrList.Add('***')
      else
        StrList.Add('&&&');
     end;
   StrList.Add('++++++');
end;
 
end.

  SoderjTstTreeView.Items.Add(nil,IntToStr(NastrForm1.Vr));