CSV Dateien einlesen

[DelphiRacer]

Hallo Community,

das einlesen von csv - Dateien in Delphi 2007 Prof. funktionierte tadellos.
Jetzt mit XE3 ???
Alles versucht, wer kann helfen...

Problem ist das keine Werte ins Grid eingetragen werden.
Es kommt keine Fehlermeldung und im Grid Spalte0,Zeile0 stehen Chinesische Zeichen...


Hier die aktuelle Source...

Delphi-Quellcode:

procedure T_Rezepteditor.FormShow(Sender: TObject);
var       z: single;
        x,y: integer;
          t: string;
          i: Integer;
 csvReader : TCSVReader;
     sData : TFileStream;

begin
  // Mit Entertaste weiter
  KeyPreview := True;
  // Dateiname
  t:=Label1.Caption;

  sData := TFileStream.Create(t,fmOpenRead);
  csvReader := TCSVReader.Create (sData, ';');
  csvReader.First;
  try
    StringGrid1.ColCount:=csvReader.ColumnCount;
    y:=-1; // Zeile
    while not csvReader.Eof Do
      begin
        y:=y+1;
        StringGrid1.RowCount:=y+1;
        for x:=0 to csvReader.ColumnCount - 1 Do
          StringGrid1.Cells[x,y]:=(csvReader.Columns[x]);
        csvReader.Next;
      end;
  finally
    csvReader.Free;
    sData.Free;
  end;
end;