Считать дату в таблицу из dbf файла

   DBF1.Open;
   DBF1.CodePage:=OEM;
   DBF1.First;
     for i:=0 to DBF1.RecordCount-1 do
 begin
         Table2.Active:=True;
          Table2.Insert;
     Table2.FieldByName('surname').AsString:=dBF1.GetFieldData(2);
   Table2.FieldByName('name').AsString:=dBF1.GetFieldData(3);
   Table2.FieldByName('patron').AsString:=dBF1.GetFieldData(4);
   Table2.FieldByName('bdate').AsDateTime:=StrToDate(dBF1.GetFieldData(5));
   Table2.FieldByName('pol').AsString:=dBF1.GetFieldData(6);
   Table2.FieldByName('address').AsString:=dBF1.GetFieldData(7);
    Table2.Post;
   Table2.Active:=false;
     DBF1.Next;
     end;
    DBF1.Post;
    DBF1.Close;

s := dBF1.GetFieldData(5);
if length(s) = 8 then
  insert(s, 7, '19');
Table2.FieldByName('bdate').AsDateTime:=StrToDate(s);

uses ..., DateUtils;
...
var y1, y2: integer;
s := dBF1.GetFieldData(5);
if length(s) = 8 then begin
  y1 := StrToInt(Copy(s, 7, 2));
  y2 := YearOf(Now) mod 100;
  if y1 < y2 then insert(s, 7, '19') else insert(s, 7, '20');
end;
Table2.FieldByName('bdate').AsDateTime:=StrToDate(s);