Carlo

I agree with you about the impossibility of solving the problem with small changes. The change I made avoids division by zero but after this operation nothing works anymore. Anyway, thanks for your help

Hello This is the code that raises the error when I post the new record: ~~~ constructor TmyClass.create; begin FTable := TDbf.create(nil); FTable.TableName := 'Table.dbf'; FTable.Storage := stoMemory; With FTable do begin Close; TableLevel := 7; Exclusive := True; with FieldDefs do begin clear; add('tag', ftString, 80, False); add('FIELD1', ftMemo, 0, False); add('FIELD2', ftMemo, 0, False); end; CreateTable; Open; AddIndex('idxByTag', 'tag', [ixPrimary, ixUnique]); end; FTable.append; FTable.FieldByName('TAG').AsString...

in memory table with memo fields

delphi XE