Добавление тегов в заголовок XML

[Аватар]

Упрощенный вариант чтения dbf твоей структуры (без обработки критичных ситуаций)

procedure TForm2.SpeedButton3Click(Sender: TObject);
var xDbfHandle: Integer;
    Buf: array [0..20] of Char;
begin
  xDbfHandle:=FileOpen('e:\test.dbf',fmOpenRead);
  FileSeek(xDbfHandle,65,0);
  while FileRead(xDbfHandle,Buf,21)=21 do
    //Buf[0]=#32 - запись не удалена
    if Buf[0]=#32 then Memo.Lines.Add(Trim(Copy(Buf,1,20)));
  FileClose(xDbfHandle);
end;