SQL-Sanduhr bei Datenübermittlung bleibt bestehen

[Moin]

Hallo zusammen,
Ich muss für die Schule ein Programm schreiben, das die Schülerdaten (name, gwählte Kurse, Klasse) in eine PHPMyAdmin-Sql-DB über nimmt.

Mein Problem:
Der Quelltext funktioniert nicht richtig, die Daten werden zwar (meines Wissens) vollständig übertragen, ABER die SQL-Sanduhr welche bei der Datenübertragung angezeigt wird, verschwindet nicht (ca. 90 Datensätze werden eingefügt). Sonst tritt kein Fehler auf!


Daten werden Zeilenweise über eine Memo im Format:
Nr.;Name;Vorname;Klasse;LK 1;LK 2;GK 1;GK 2;GK 3;GK 4;GK 5;GK 6;GK 7;GK 8;GK 9
eingelesen.

Bsp.:

Code:

snr;Name;Vorname;Kl;LK 1;LK 2;GK 1;GK 2;GK 3;GK 4;GK 5;GK 6;GK 7;GK 8;GK 9
1;Mustermann;Martin;klA02;DEU;TE;EN;BK;WL/;GE;MA;PHY;INF;SP;
2;Musterfrau;Max;klB02;MAT;IS;DE;EN;RU;BK;WL/;GE;CH;IV;EP

Hier Mein Quelltext:

Delphi-Quellcode:

procedure TfMain.btnImportSClick(Sender: TObject);
    var i,k,z : integer;
    var ds,temp : string;
begin
     If memoS.Text <> ''
     Then Begin

          if cbS1.Checked   // 1. Zeile überspringen??
          then i := 1
          else i := 0;

         While  i <= memoS.Lines.Count Do   //für jede Zeile
          If (memoS.Lines[i]<> '') AND (memoS.Lines[i] <> ' ') //Wenn Zeile nicht Leer
          Then
            BEGIN

            tabS.Append;
            z := 0;
            ds := memoS.Lines[i]; // Datensatz  = Zeile
            If ds[length(ds)] <> ';' //Wenn Zeile nicht mit ";" abgeschlossen, ";" anhängen
            Then ds := ds +';' ;

            temp := '';
            For k := 0 to length(ds) Do
             Begin
             If ds[k] = ';'
             Then begin
                  Case  z of
                  1  : If Temp <> ''        //Beginnt mit 1, da SNR ignoriert wird
                       Then tabS.FieldValues ['name'] := temp;
                  2  : If Temp <> ''
                       Then tabS.FieldValues ['vorname'] := temp;
                  3  : If Temp <> ''
                       Then tabS.FieldValues ['klasse'] := temp;
                  4  : If Temp <> ''
                       Then tabS.FieldValues ['lk1'] := temp;
                  5  : If Temp <> ''
                       Then tabS.FieldValues ['lk2'] := temp;
                  6  : If Temp <> ''
                       Then tabS.FieldValues ['gk1'] := temp;
                  7  : If Temp <> ''
                       Then tabS.FieldValues ['gk2'] := temp;
                  8  : If Temp <> ''
                       Then tabS.FieldValues ['gk3'] := temp;
                  9  : If Temp <> ''
                       Then tabS.FieldValues ['gk4'] := temp;
                  10 : If Temp <> ''
                       Then tabS.FieldValues ['gk5'] := temp;
                  11 : If Temp <> ''
                       Then tabS.FieldValues ['gk6'] := temp;
                  12 : If Temp <> ''
                       Then tabS.FieldValues ['gk7'] := temp;
                  13 : If Temp <> ''
                       Then tabS.FieldValues ['gk8'] := temp;
                  14 : If Temp <> ''
                       Then tabS.FieldValues ['gk9'] := temp;
                  end;
                  temp:= '';
                  inc(z);
                  end
             Else if ds[k]<> '"'
                  then temp := temp + ds[k];
             End;
         //Passwort erstellen
            tabS.FieldValues ['passwort'] := 'katze'; //Platzhalter
         // Ende Passworerstellung
            tabS.Post;
            inc(i);
            END;
          End;
end;

Kann mir jemand Helfen??

danke im Vorraus