Что за напасть, выскакивает ошибка критическая, но отловить невозможно, ибо только ПОСЛЕ закрытия приложения, даже при отладке.
procedure TNewForm.DBLookupComboboxEh2Change(Sender: TObject);
var i:integer;
   k:longint;
   s:string;
   R:Variant;
begin
if (DBLookupComboboxEh2.Value<>NULL)and(Form1.ClientDataV_R.Active)
and(Form1.ClientDataV.Active)and(Form1.ClientDataF.Active)then
                                           begin
for i:=0 to StringGrid6.RowCount-1 do StringGrid6.Rows[i].Clear;
StringGrid6.RowCount:=1;

Здесь: if Form1.ClientDataV_R.RecordCount>0 then begin
....
                                                                     end;
Если убрать обращение к базе, ошибки нет. Работает всё корректно до закрытия. Ещё один момент. Ошибка появляется, когда есть обработчик :
procedure TNewForm.StringGrid6DrawCell
...
даже пустой ! Просто с комментом !
Блин, крыша едет, помогите !