Ну дык так просто тут не объяснишь что надо сделать...
Собственно, тебе надо:
1. Выкинуть одну из форм
2. В оставшейся форме:
- переименовываем ее в, например, DicBaseForm
- создаем 2 строковых поля
Код:
public
FFileName : String;
FFormName : String;
- Во всем коде, где идет обращение к названию или имени файла, константу заменяем на соответсующее поле
3. Теперь идем в File -> New и создаем 2 формы путем наследования от нашей DicBaseForm.
4. В каждой из форм перекрываем конструктор примерно таким образом:
Код:
constructor TBookForm.Create(AOwner : TComponent);
begin
FFileName := 'C:\books.txt';
FFormName := 'Books';
inherited;
end;
Все.