[Nautilus]

Добрый вечер! После "закладки" данных в поля таблицы dbf- не могу ее открыть- пишет "Неверный тип записи или смещение". Где в коде ошибка, не подскажите (компонент Tdbf)

Код:

procedure TForm1.FormShow(Sender: TObject);
var
tt,real:   TFLDType ;

begin

  tt:=bfDate;
  real:=bfFloat;
 form1.DBF1.TableName:='Arh .dbf';
 form1.DBF1.AddFieldDefs('time', tt, 8, 0);
 form1.DBF1.AddFieldDefs('Tiv', real, 8, 2);
 form1.DBF1.AddFieldDefs('Piv', real, 8, 2);
 form1.DBF1.AddFieldDefs('PHiv',real, 8, 2);
 form1.DBF1.AddFieldDefs('ORPiv',real, 8, 2);
 form1.DBF1.AddFieldDefs('Miv',real, 8, 2);
 form1.DBF1.AddFieldDefs('Qiv',real, 8, 2);
 form1.DBF1.CreateTable;
 form1.DBF1.Close;

end;

А вот "накладываю" данные

Код:

procedure TForm1.Timer3Timer(Sender: TObject);
var
l2: string;
 FromExcel1, FromExcel2,FromExcel3,FromExcel4: PChar;
begin

 l2:=  Form1.Label2.Caption;
 
 form1.DBF1.Open;
 form1.DBF1.SetFieldData(2,l2);
 form1.DBF1.Insert ;
 form1.DBF1.Close;

end;

Люди, где может быть собака зарыта?
Спасибо.