[Dead_Gigabit]

Фаил создается все ок спасибо, но вместо руских букв какие-то кракозябры тоесть как я понимаю нужна с кодировка русских символов – OEM 866 как добавить эту кодировку?

вот код который создает фаил и перебрасывает данные из Stringrid в него:

Код:

 
var
NumF    : TFieldDef;
i,j:integer;
begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := 'c:\';
     TableName     := 'test.dbf';
     TableType     := ttDbase;
     TableLevel    := 3;
     with FieldDefs do
     begin
      Add('FIO', ftString,40,false);
      Add('ACCOUNT', ftString,20,false);
     // Add('SUMMA', ftBlob,0,false);
     NumF:=FieldDefs.AddFieldDef();
    NumF.Name:='SUMMA';
    NumF.DataType:=ftBCD;
    NumF.Size:=2;
    NumF.Precision:=17;
 
     end;
     CreateTable;
   end;
    TBL1.DatabaseName:='c:\';
  TBL1.TableName:='test.dbf';
  TBL1.Active:=true;
  for i:=0 to StringGrid1.RowCount-1 do
    begin
      TBL1.Append;
      for j:=0 to StringGrid1.ColCount-1 do
        TBL1.Fields[j].AsString:=StringGrid1.Cells[j,i];
      TBL1.Post;
    end;
  TBL1.FlushBuffers;
  TBL1.Active:=false;
end;