Не работает библиотека на одной машине

Это наша разработка. Дело в том, что она эксплуатируется уже
несколько лет без проблем. Т.е. она работает на других ПК
нормально.

Тогда сказать сложно.

Понимаю. Поэтому и обратился к Вам.
В дополнении:Win 7 64 p. Версия TCS не имеет значения, но
6.3(19098)
Попробовал зарегистрировать библиотеку в system32, но пишет,
что не может найти файл. Скопировать, удалить, создать в этой
папке можно. История этой ПК такова:сначало не устанавливалась
MS SQL Native Client. Переустановили ОС. Нынешняя ситуация
описана выше. На предложение ещё раз переустановить поль-
зователь говорит: да сколько раз можно? Другого выхода пока не
вижу.

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

Ошибка происходит именно при вызове модуля. Я поставил перед
ним

Call TCSApp.ShowErrorMessage("1. Будет ошибка tcs_sql_dll.dll")
Call MainLib.GreateDok(TCSApp, TCSActiveModule , DB, ArchTree, ArchTreeID) 

Сам модуль:

procedure TMainProciFunTCS.GreateDok(TCSApp1, Module1, DB,
  Tree: OleVariant; TreeID: Integer);
var
Doc : Olevariant;
i: integer;
s: String;
begin
 DM:=TDM.Create(nil);
 DM.ADOConnection1.Connected:=False;
// DM.ADOConnection1.Params.Values['SERVER NAME'] :=DB;
 DM.ADOConnection1.Connected:=True;
 If  not DM.ADOConnection1.Connected then begin
    ShowMessage('Îøèáêà ïîäêëþ÷åíèÿ ê áàçå!');
 END else begin
  FCreateDoc:=TFCreateDoc.Create(nil);
  FCreateDoc.Module:=Module1;
  FCreateDoc.TCSApp:=TCSApp1;
  FCreateDoc.ArchTree:=Tree;
  FCreateDoc.ArchTreeID:=TreeId;
  FCreateDoc.ShowModal;
  FCreateDoc:=nil;
 end;
  DM.Free;
  DM:=Nil;
end;

Строка подключения:

Проверил. Подключение выполняется нормально.

Не ставится.

Установил. Результат тот же.
Посмотрите doc. У меня есть SQL Native Client, а у него нет. Кто его ставит?