t.Open;
  for I := 0 to pred(t.FieldCount) do
  begin
    if t.Fields[i].ReadOnly then continue;
    xml.Map.Add(t.Fields[i].FieldName + '=' + t.Fields[i].FieldName);
  end;//for

procedure CreateMap;
Var
 i, j: integer;
 XMLFile: TXMLFile;
 sXml: String;
 XMLTag: TXMLTag;
 Field: TField;
begin
  XMLFile := TXMLFile.Create;
  XMLFile.FileName := '1.xml';
  XMLFile.Open;
  XMLFile.Load(true);

  for I := 0 to pred(XMLFile.FieldCount) do
    xml.Map.Add(TXMLTag(XMLFile.Fields[0].TagList[i]).Attributes.ValueFromIndex[0] + '=' + TXMLTag(XMLFile.Fields[0].TagList[i]).Attributes.ValueFromIndex[0]);

  XMLFile.Free;
end;