Escrever/Insert no arquivo DBF

var
Table1 : TTable;
begin
{ Criar arquivos }
Table1 := TTable.create(Application);
{ Cria arquivo }
with Table1 do
begin
Active := False;
DatabaseName := 'C:\';
TableName := 'ppndbf.dbf';
TableType := ttdBASE;
with FieldDefs do
begin
Clear;
   with AddFieldDef do
    begin
        Name := 'dataven';
        DataType := ftdate;
        Required := True;
    end;
   with AddFieldDef do
    begin
        Name := 'documento';
        DataType := ftString;
        Required := false;
        Size := 12;
    end;
   with AddFieldDef do
    begin
        Name := 'cfop';
        DataType := ftString;
        Required := false;
        size := 4;
    end;
   with AddFieldDef do
    begin
        Name := 'valor';
        DataType := ftCurrency;
        Required := false;
    end;
   with AddFieldDef do
    begin
        Name := 'nomecli';
        DataType := ftString;
        Required := false;
        size := 50;
    end;
   with AddFieldDef do
    begin
        Name := 'cro';
        DataType := ftString;
        Required := false;
        size := 5;
    end;
   with AddFieldDef do
    begin
        Name := 'cpf';
        DataType := ftString;
        Required := false;
        size := 14;
    end;
   with AddFieldDef do
    begin
        Name := 'parcela';
        DataType := ftString;
        Required := false;
        size := 5;
    end;
end;
IndexDefs.Clear ;
IndexDefs.Add ( 'TESTE_01', 'documento', [] );
IndexDefs.Add ( 'TESTE_02', 'cpf' , [] );
CreateTable;

AddIndex('Indice1', 'dataven', [ixExpression]);
end;