Database.StartTransaction;
    try
       TestTable.Insert;
       TestTable.Columns['TestField1'].AsString := 'PETE12';
       TestTable.Columns['TestField2'].clear;
       TestTable.Columns['TestInt'].AsInteger := 23;
       TestTable.Columns['TestDate'].clear;
       TestTable.save;
       Database.Commit;
       Request.SendContent('Record added');
    except
      if Database.InTransaction then
         Database.Rollback;
      raise;
    end;
end;

CREATE TABLE "TestTable"
(
"TestField1" VARCHAR(20) COLLATE "UNI",
"TestField2" VARCHAR(20) COLLATE "UNI",
"TestInt" INTEGER NOT NULL,
"TestDate" DATE
)
VERSION 1.00
READWRITE
UNENCRYPTED
INDEX PAGE SIZE 8192
BLOB BLOCK SIZE 1024
PUBLISH BLOCK SIZE 1024
PUBLISH COMPRESSION 0
MAX ROW BUFFER SIZE 32768
MAX INDEX BUFFER SIZE 65536
MAX BLOB BUFFER SIZE 32768
MAX PUBLISH BUFFER SIZE 32768