[lmikle]

Ну дык так просто тут не объяснишь что надо сделать...
Собственно, тебе надо:
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;

Все.