Помогите разобраться в чем ошибка.я прикрепил файлы задачи.Жмем на 3 вкладку (лечение), жмем назначить потом выбираем все что нужно потом применить и вот возникает ошибка. Пишет что то вроде не удаеться закончить при открытой базе. Помогите плз,а то курсяк здавать надо..... Заранее спасибо

Особо не вникал, но вот так по крайней мере не ругается на открытый датасет

// ...
Exc.SQL.Add('VALUES ("' + fm.dia_id + '","' + fm.bol_id + '","' +
                    fm.Edit1.Text + '","' + DateToStr(fm.DateTimePicker1.DateTime) + '");');

        lech.Close; // <-----------------------------------------------
        lech.ExecSQL;//...