Как передать параметр в другое(модальное) окно?

[kiber0net0]

В приложении для работы с БД, одно диалоговое окно должно заносить данные в разные таблицы. В зависимости от таго в какую таблицу зановить данные поменяется только название окна и добавится/убавится пару компонентов на форме.

Идея реализации заключается в следующем:
1. Создать окно с алгоритмом обработки заполненых компонентов вызваного окна.
2. При вызове через параметр указывать какая таблица обрабатывается, соответственно делать видимыми/невидимыми компоненты те которые отличают эти окна и переименовывать заголовок при создании.
3. Для передачи параметра есть две идеи:
а) создать глобальную переменную на главной форме, а на модальной - указать модуль главной формы в самом верху;
б) и из области финтастики, передавать через реестр windos ;


Вопрос:
1. Что порекомендуетее по третьему пункту, может есть более просты способы?
2. (Философский ) На сколько не оптимально использовать реестр по сравнению с переменными(ведь на сколько я понимаю переменная висит в опереативной памяти постоянно, а реестр мы используем только тогда, когда необходимо)?

P.S. Заранее всем спасибо!!!

[alexBlack]

А чем Вам не нравятся параметры функций ?
Например, что-то вроде этого:

type
   Tables = (tbTable1, tbTable2);  // Это возможные виды таблиц

function GetData(Table:Tables):TModalResult;

implementation

function GetData(Table:Tables):TModalResult;
begin
   //...
   case Table of
     tbTable1 : {};
     tbTable2 : {};
   end;

   result := Form4.ShowModal;
end;

[NikLik]

Я в таких ситуациях "передаю" нужные мне данные через глобальные переменные-- имхо, удобно.

[alexBlack]

Сообщение от NikLik

Я в таких ситуациях "передаю" нужные мне данные через глобальные переменные-- имхо, удобно.

Вопрос не в удобстве.
Возможно, когда Вы потратите пару дней на отладку в попытках понять где меняются Ваши глобальные переменные, Вы откажетесь от этого варианта.

unit Unit5;
interface

var Count : integer;

implementation

end.

unit Unit4;
interface


implementation

uses unit5;

procedure doMethod;
begin
   Count := 5;
{ Вот здесь !!!!
   Компилятор не скажет, что переменная не объявлена и просто использует глобальную. 
   А если это объект и Вы присвоите nil,  Вы будете долго искать почему в самых неподходящих местах появляется Access violation
   
}
end;

end.