[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 XMLDocument1.LoadFromFile('D:\XML\1648.xml');
 XMLDocument1.Active:= true;
 with XMLDocument1.DocumentElement.ChildNodes['trk'].ChildNodes['trkseg'] do
  for i:= 0 to ChildNodes.Count-1 do
   begin
    StringGrid1.RowCount:= StringGrid1.RowCount+1;
    StringGrid1.Cells[0,StringGrid1.RowCount-1]:= ComboBox1.Text;
    StringGrid1.Cells[1,StringGrid1.RowCount-1]:= VarToStr(ChildNodes.Nodes[i].Attributes['lat']);
    StringGrid1.Cells[2,StringGrid1.RowCount-1]:= VarToStr(ChildNodes.Nodes[i].Attributes['lon']);
   end;
 XMLDocument1.Active:= false;
end;