Speicherstelle und StringGrid

[Nisbo]

Moin Moin,

ich habe im moment einen kleinen Hänger und komme da nicht weiter,
ich lese aus einer textdatei einen csv-text aus mit diesem code

Delphi-Quellcode:

    Screen.Cursor := crHourGlass;

    csv := TStringList.Create;
    csv.LoadFromFile('artikel_shop_' + StringGrid1.Cells[2,stringgrid1.row] + '.txt');
    StringGrid2.Rowcount := csv.Count;

    for ccc2 := csv.Count - 1 downto 1 do
      begin
        AnzTokens := Explode(A, ';', csv.Strings[ccc2]);
        for i := 0 to AnzTokens -1 do
          begin
            ccc := ccc+1;
              if ccc < 2 then begin
                StringGrid2.Cells[ccc, ccc2] := A[i];
              end;
              if ccc = 21 then begin
                ccc := -1;
              end;

          end;
      end;
      Screen.Cursor := crDefault;

aus und speicher diesen im StringGrid2
Explode zerlegt hierbei die ; getrennten text in seine bestandteile

das ganze funktioniert auch, allerdings ist mein problem dabei die zeit bis dies alles eingelesen ist (davon allerdings nur der artikelname und die artikelID) und auch die programmlast von 100% über ca 1 Minute bei ca 1800 Zeilen und einer dateigröße von ca 2,3 MB und das möchte ich vermeiden

wenn ich alles ins Grid schreibe dann hört das programm gar nicht mehr auf mit der systemlast und hängt bis ich es abschieße

habt ihr da ideen wie ich das besser lösen kann

ach ja D5 habe ich