Kleines Problem mit Schleife, finde Fehler einfach nicht

[mafiaente]

Guten Tag,
also ich bin neu hier im Forum und hoffe mir kann bei meinem Problem geholfen werden.
Ich verscuhe grad mir delphi mehr oder weniger selbst beizubringen und hab grad nen kleinen hänger...
Ich habe ein Stringgrid mit 5 Spalten gegen, wobei sich die Zeilenanzahl variieren lässt. Die erste Zeile enthält die Zeilenköpfe.
Ich möchte nun die Spalte 1 und 4 eine meine Datentabelle 2 übertragen un habe mir dabei folgende Schleife überlegt:

Delphi-Quellcode:

k:=stringgrid1.rowCount;
table2.open;
for k:=1 to (k-1) do
    begin
    table2.append;
    table2['Re.Nr.']:=table3.fieldbyname('Re.Nr.').asstring;
    table2['Art.Nr.']:=stringgrid1.cells[0,k];
    table2['Anzahl']:=stringgrid1.cells[3,k];
    table2.post;
    end;

also zuerst soll die zeilenanzahl ermittelt werden, damit ich weiß wie oft die schleife durchlaufen soll. für mich erscheint es logisch, doch erscheint "indexfehler" als fehlermeldung! ich hoffe mir kann geholfen werden!
thx schonma im vorraus...