var Database :TEDBDatabase;
    Table    :TEDBTable;
    i        :Integer;
    Field    :TField;
begin
  Engine.ConfigPath:='C:\Test';

  Session.SessionType:=stLocal;
  Session.LoginUser:='Administrator';
  Session.LoginPassword:='EDBDefault';

  Session.SessionName:='SessionTest1';
  Session.Open;

  Session.Execute('CREATE DATABASE "DatabaseTest" PATH ''''');

  Database:=TEDBDatabase.Create(nil);
  Database.SessionName:=Session.SessionName;
  Database.DatabaseName:='DatabaseTest';
  Database.Database:='DatabaseTest';
  Database.Open;

  Database.Execute('CREATE TABLE "TestNULL" ("a" BLOB)');
  Database.Execute('CREATE TABLE "Test0" ("a" BLOB)');

  Table:=TEDBTable.Create(nil);
  Table.SessionName:=Session.SessionName;
  Table.DatabaseName:=Database.DatabaseName;
  Table.Exclusive:=True;

  Table.TableName:='TestNULL';
  Table.Open;
  Field:=Table.Fields [0];
  for i:=1 to 1000 do begin
    Table.Append;
    Field.Clear;
    Table.Post;
    end;
  Table.Close;

  Table.TableName:='Test0';
  Table.Open;
  Field:=Table.Fields [0];
  for i:=1 to 1000 do begin
    Table.Append;
    Field.AsBytes:=nil;
    Table.Post;
    end;
  Table.Close;

  Table.Free;
  Database.Free;