DBase (dbf) mit 3 Index-Dateien, aber werden nicht angezeigt

[X-Dragon]

Hab aktuell gerade einen Testlauf am laufen und so wie es aktuell aussieht dauert es über 6,5 Std. bis er komplett durch ist. Also falls jemand noch Vorschläge hat, bin für alles offen (Try-finally, und sonstiges zur Statusanzeige hab ich erstmal alles rausgenommen damit es übersichtler ist):

Delphi-Quellcode:

var
  i, z  : Cardinal;
  nr    : Single;
  str   : String;
  dbtxt : TStrings;
begin
  steppi := 0;

  dbtxt := TStringList.Create;
  dbtxt.LoadFromFile(QuellDB);

  z := dbtxt.Count;

  with TTable.Create(nil) do
  begin
    DatabaseName := 'EinAlias';
    TableName := ZielDB;
    Open;

    for i := 1 to z -1 do
    begin
      str := AnsiToIBMAscii(Copy(dbtxt[i], 1,12));

      if Locate('ARTN', str, []) then
        Edit
          else Append;

      FieldByName('ARTN').AsString := str;
      FieldByName('ARTU').AsString := AnsiToIBMAscii(Copy(dbtxt[i],13,12));
      FieldByName('ARTD').AsString := AnsiToIBMAscii(Copy(dbtxt[i],27,12));
      FieldByName('TAUS').AsString := AnsiToIBMAscii(Copy(dbtxt[i],39, 1));
      FieldByName('BEZE').AsString := AnsiToIBMAscii(Copy(dbtxt[i],53,12));

      if Trim(Copy(dbtxt[i], 69,7)) <> '' then
      begin
        nr := StrToInt(Copy(dbtxt[i], 69,7)) div 100;
        FieldByName('VK').AsFloat := nr;
        FieldByName('EK3').AsFloat := nr;
      end
        else
        begin
          FieldByName('VK').AsFloat := 0;
          FieldByName('EK3').AsFloat := 0;
        end;

      FieldByName('BCODE').AsString := AnsiToIBMAscii(Copy(dbtxt[i],76, 1));
      FieldByName('PCODE').AsString := AnsiToIBMAscii(Copy(dbtxt[i],77, 1));

      if Trim(Copy(dbtxt[i],134,7)) <> '' then
        FieldByName('EK1').AsFloat := StrToInt(Copy(dbtxt[i],134,7)) div 100
        else FieldByName('EK1').AsFloat := 0;

      if Trim(Copy(dbtxt[i],141,7)) <> '' then
        FieldByName('EK2').AsFloat := StrToInt(Copy(dbtxt[i],141,7)) div 100
        else FieldByName('EK2').AsFloat := 0;

      Post;
      Application.ProcessMessages;
    end;

    Close;
  end;
end;