» Delphi 2010 работа с ADOConnection

Добрый вечер.

Уважаемые форумчане подскажите пожалуйста как правильно сделать следующее: в делфи на форму вынес компонент AdoConnection, написал цикл поиска директорий в текущем каталоге, при нахождении директории запускается поиск в ней файлов дбф(анализ реестров по контрагентам).т.е. для каждого контрагента необходимо отработать соединение для работы с дбф.так вот столкнулся с проблемой что при переходе к следующему контрагенту программа вылетает.нашел что происходит это после закрытия соединения ADO. не совсем понимаю как быть с этим. притом что странно программа умирает при отладке(вылазиет виндовое окошко об ошибке с предложением отправить в микрософт сообщение об ошибке), при запуске же из скомпилированного файла отрабатывает как надо без всяких ошибок и прочиего

Скорее всего, Access violation. Давайте код сюда, только в тегах.

таким образом происходит конект к дбф

Код: function connect_dbf(fname:string):boolean;
begin
form1.ADOConnection1.Connected:=False;
form1.ADOConnection1.ConnectionString:='';
form1.ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security '+
'Info=False;Extended Properties="DSN=dbase;DBQ='+extractfilepath(getcurrentdir+
'\'+fname)+';'+'DefaultDir='+extractfilepath(getcurrentdir+'\'+fname)+
';DriverId=533;FIL=dBase 5.0;'+'MaxBufferSize=2048;PageTimeout=5;"';
form1.ADOConnection1.Connected:=True;
connect_dbf:=form1.ADOConnection1.Connected;
end;