[Andrej-zhe]

ну вот хранится незнаю как и почему.
тогда вот так формируется наверное

Код:

Query1.Open;
if Query1.RecordCount>0
  then
  begin
  tblSbor.TableName:='sbor.dbf';
  tblSbor.Open;
  while not Query1.Eof do
    begin
    tblSbor.Insert;
    tblSbor.FieldByName('nist').Value:=Query1.FieldByName('nist').Value;
    tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
    tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
    tblSbor.FieldByName('dpo').Value:=Query1.FieldByName('dpo').Value;
    tblSbor.FieldByName('otd').Value:=Query1.FieldByName('otd').Value;
    tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value;
    tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value;
    tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value;
    tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value;
    tblSbor.Post;
    Query1.Next;
    end;
  end
  else ShowMessage('Ни одной записи не найдено');