Кажется, я несколько погорячился.
Тексты очень старые и я забыл, что в этой программе используются пакеты FastScript-1.4 и EMS QuickExport Component Suite 3.0.
Т.е., без этих пакетов (предварительно установленных) открыть весь текст будет вряд ли возможно. Но то, что касается ИМПОРТА из Excel - вполне доступно ( function Import_From_Excel : integer; )
С другой стороны, указанные выше пакеты можно найти в Инете.
Но в любом случае, времени (вырезать нужные куски) физически нет.
Извините.
Так что - уж как есть (пару тройку дней там полежат, а потом удалю) :
http://astrophoto.narod.ru/tmp/Import_to_DB_pas.zip
P.S.
Это оч. старые тексты (слепленные на скорую руку), использующие еще более старые библиотеки.
Т.е., ни на какие "шедевры" они не претендуют.
Ну, в общем, Sorry ...