Sonderzeichen fehlen beim Auslesen einer XML

[hitz]

Ich lese die XML in ein StringGrid ein, die Anweisung zur unterschiedlichen Farbdarstellung habe ich mal rausgenommen:

Code:

var
   Dok : TXMLDocument;
   i, j, farbwert: Integer;
   s : string;

begin
   ReadXMLFile(Dok, pfad);
   Form1.StringGrid1.RowCount := Dok.documentElement.ChildNodes.Count+1;
   with Dok.DocumentElement.ChildNodes do
   begin
        for i := 0 to Count-1 do
        begin
             for j := 0 to Item[i].ChildNodes.Count-1 do
             begin
                  s := Item[i].ChildNodes.Item[j].FirstChild.NodeValue;
                  case j of
                  0,1 : begin
                           Form1.StringGrid1.Cells[j,i+1] := s;
                    end;
                  2 : begin
                           farbwert := strtoint(s);
                           case farbwert of 
                           [.....]
                    end;
                  3 : begin
                           Form1.StringGrid1.Cells[j-1,i+1] := s;
                    end;
                  end;
             end;
        end;
   end;
   Dok.Free;
end;