[YERokez]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    t_StrList:TStringList;
    i,t_pos:integer;
    t_Str:String;
begin
{
    <COL1 name="COL1">qqq1</COL1>
    <COL2 name="COL2">qqq2</COL2>
    <COL3 name="COL3">qqq3</COL3>
    <COL4 name="COL4">qqq4</COL4>
}
    Self.OpenDialog1.Execute;
    if Self.OpenDialog1.FileName='' then exit;

    t_StrList:=TStringList.Create;
    try
        t_StrList.LoadFromFile(Self.OpenDialog1.FileName);

        Self.StringGrid1.ColCount:=t_StrList.Count;
        Self.StringGrid1.RowCount:=2;

        For i:=0 to t_StrList.Count-1 do
        Begin
            t_Pos:=0;
            t_Pos:=POS('"',t_StrList[i]);
            if t_Pos<>0 then
            Begin
                t_Str:=copy(t_StrList[i],t_pos+1,length(t_StrList[i])-t_Pos);
                t_Pos:=POS('"',t_Str);
                Self.StringGrid1.Cells[i,0]:=copy(t_Str,1,t_pos-1);
                t_Str:=Copy(t_Str,t_pos+2,length(t_Str)-t_Pos-1);
                t_Pos:=POS('<',t_Str);
                Self.StringGrid1.Cells[i,1]:=copy(t_Str,1,t_pos-1);
            end;
        End;
    Finally
        t_StrList.Free;
    End;


end;

Вот работающий примечик. Только не стал заморачиваться с заголовками XML.