Доброго времени суток. Проблема следующая. Есть форма с ADOQuery в каторой выполняется запрос типа select(ничего сложного в общем в нем нет.)
Есть удаленный сервак MS-SQL 2000 все работает замечательно до какой нить проблемы с сетью. Код проги выглядит следующим образом.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
AssignFile(LogFile, 'SMSLogFile.txt');
Timer1.Enabled := False;
try
ADOQuery1.Open;
...... тут код вывода данных на форму .....
except
on E: EOleException do
begin
Append(LogFile);
Writeln(LogFile, DateTimeToStr(Now) + ' ' + E.Message);
CloseFile(LogFile);
ADOQuery1.Close;
end;
else begin
Append(LogFile);
Writeln(LogFile, DateTimeToStr(Now) + ' Странная ошибка');
CloseFile(LogFile);
ADOQuery1.Close;
end;
Timer1.Enabled := True;
if ADOQuery1.Active = True then ADOQuery1.Close;
end;

И когда появиляется ошибка то программа пишет эту ошибку в Лог-файл до тех пор пока не закрыть программу и открыть заново. А хотелось чтоб этого не требовалось. Посоветуйте кто сталкивался с подобной проблемой как ее победить. Таймер стоит на 5 секунд. Пишу на Dephi 7.

Не ужели никто ничем помочь не может?:(

И так пробовал. не помогает. Все равно ошибка выскакиевает. При чем Была ошибка именно на открытии ADOQuery и пошагово когда выполняешь после ошибки повторно выскакивает именно на открытии ADOQuery. Такое ощущение что она ошибку в себе держит и как только идет обращение к ADOQuery не пытаясь коннектится к серваку сразу же ошибку выбрасыват.

Строку подключения тоже смотрел до и после ошибки.. одинаковая, правильная.

и закрывал adoquery и обнулял строку запроса и заново вписывал. ошибка и все. но апосля перезагрузки проги все нормально