После добавления поля lookup в dataset, "access violation" при скроле

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, IBCustomDataSet, IBDatabase, Grids, DBGrids;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    IBDataSet1: TIBDataSet;
    IBDataSet2: TIBDataSet;
    DataSource2: TDataSource;
    IBTransaction1: TIBTransaction;
    IBDatabase1: TIBDatabase;
    IBDataSet1NAME: TIBStringField;
    IBDataSet1ID: TIntegerField;
    IBDataSet2ID_NAME_FROM_TABLE1: TIntegerField;
    IBDataSet2ID: TIntegerField;
    IBDataSet2NAME: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.

object Form1: TForm1
  Left = 263
  Top = 392
  Width = 1016
  Height = 468
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 16
    Top = 32
    Width = 225
    Height = 145
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object TDBGrid
    Left = 472
    Top = 144
    Width = 320
    Height = 120
    DataSource = DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID_NAME_FROM_TABLE1'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = IBDataSet1
    Left = 208
    Top = 176
  end
  object IBDataSet1: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    DeleteSQL.Strings = (
      'delete from TABLE1'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into TABLE1'
      '  (ID, NAME)'
      'values'
      '  (:ID, :NAME)')
    RefreshSQL.Strings = (
      'Select '
      '  NAME,'
      '  ID'
      'from TABLE1 '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from TABLE1')
    ModifySQL.Strings = (
      'update TABLE1'
      'set'
      '  ID = :ID,'
      '  NAME = :NAME'
      'where'
      '  ID = :OLD_ID')
    Active = True
    Left = 136
    Top = 208
    object IBDataSet1NAME: TIBStringField
      FieldName = 'NAME'
      Origin = '"TABLE1"."NAME"'
      Size = 10
    end
    object IBDataSet1ID: TIntegerField
      FieldName = 'ID'
      Origin = '"TABLE1"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object IBDataSet2: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    DeleteSQL.Strings = (
      'delete from TABLE2'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into TABLE2'
      '  (ID, ID_NAME_FROM_TABLE1)'
      'values'
      '  (:ID, :ID_NAME_FROM_TABLE1)')
    RefreshSQL.Strings = (
      'Select '
      '  ID_NAME_FROM_TABLE1,'
      '  ID'
      'from TABLE2 '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select t2.* from  TABLE2 t2 where t2.ID_NAME_FROM_TABLE1 = :ID'
      ''
      '')
    ModifySQL.Strings = (
      'update TABLE2'
      'set'
      '  ID = :ID,'
      '  ID_NAME_FROM_TABLE1 = :ID_NAME_FROM_TABLE1'
      'where'
      '  ID = :OLD_ID')
    DataSource = DataSource1
    Left = 584
    Top = 208
    object IBDataSet2ID_NAME_FROM_TABLE1: TIntegerField
      FieldName = 'ID_NAME_FROM_TABLE1'
      Origin = '"TABLE2"."ID_NAME_FROM_TABLE1"'
    end
    object IBDataSet2ID: TIntegerField
      FieldName = 'ID'
      Origin = '"TABLE2"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBDataSet2NAME: TStringField
      FieldKind = fkLookup
      FieldName = 'NAME'
      LookupDataSet = IBDataSet1
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME'
      KeyFields = 'ID_NAME_FROM_TABLE1'
      Lookup = True
    end
  end
  object DataSource2: TDataSource
    DataSet = IBDataSet2
    Left = 656
    Top = 208
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    Left = 216
    Top = 64
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'D:\Prog\_Example\DB_TEST.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=WIN1251')
    LoginPrompt = False
    Left = 72
    Top = 88
  end
end

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.