";" als trennzeichen funktioniert nicht

[5etH]

Hallo Zusammen,

in meinem jetzigen Programm schreibe ich Datensätze aus einer CSV-Datei in ein Stringgrid. Leider liest er Die Datensätze nicht richtig ein aber beim schreiben trennt er sie richtig.

Beim Laden:
Anstatt die Einzelnen Strings Zu trennen schreibt er alle die in einer Line Stehen in eine Zelle des Stringgrids.

Textdatei Inhalt:

KundenNr.;Name;Vorname;Email;Key;Regestriert
1;Panse;Jim;[e-mail];3455325675-3674366323-5437225667;0

Und die Beiden Prozeduren:

Delphi-Quellcode:

//Speichern
procedure savegrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  csv : TStringList;
  i : Integer;
begin
  csv := TstringList.create;
  csv.Delimiter:=';';
  for i:=0 to StringGrid.RowCount -1 do
    begin
      StringGrid.Rows[i].Delimiter:=';';
      csv.Add(StringReplace(StringGrid.Rows[i].CommaText,',',';',[rfReplaceAll]));
    end;
  csv.SaveToFile(FileName);
  csv.Free;
end;


//Laden
procedure loadgrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  csv : TStringList;
  i : Integer;
begin
  csv := TStringList.create;
  csv.loadfromfile('c:\DB\KundenDatenbank.csv');
  stringGrid.rowCount := csv.count ;
  for i:=0 to csv.count -1 do
    begin
    StringGrid.Rows[i].Delimiter:=';';
    StringGrid.Rows[i].Commatext:=csv[i];
    end;
    csv.free;
end;

wäre nett, wenn ihr mir helfen könntet

schonmal vielen Dank!
Euer Manu