Insert-Schleife viel zu langsam

[Partikelecho]

Das ist richtig, ich hab bisher noch keine Fehlerbehandlungsroutinen eingebaut. Mir geht es zunächst um die Performance und Logik der wichtigsten Funktionen.
Die Fehlerbehandlung ist aber schon vorgemerkt.

Delphi-Quellcode:

procedure TFRM_Main.ReadInInvA;
var
  i:Integer;
  created, accessed, modified:TDateTime;
begin
...
  for i := 0 to SL.Count-1 do
  begin
    GetFileTimes(CXBE_DbDir.Text+'\'+SL[i], created, accessed, modified);
    TBL_Container.AppendRecord([null, SL[i], DateTimeToStr(created), DateTimeToStr(modified), DateTimeToStr(accessed), GetFileSize(CXBE_DbDir.Text+'\'+SL[i])]);
  end;
...
end;