Daten in StringGrid einlesen und in DB abspeichern

[muenchner]

Hallo ich bins schon wieder!

Vielleicht kann mir jemand sagen, was ich bei diesem code verkehrt habe, dass 5x hintereinander nur die 1. Zeile geschrieben wird.
Auuserdem bräuchte ich noch Hilfe, um die StringGrid in eine Tabelle abzuspeichern.

Ich möchte die Daten von einer Tabelle auslesen, in die StringGrid eintragen und anschliesend in eine andere DB abspeichern.

Vielleicht kann mir jemand helfen.

SQL-Code:

var
sSQL, s1SQL: String;
 i: Integer;
begin

try
Query1.Close;
Query1.SQL.Clear;
sSQL :=  'SELECT VertragNr, KundenNr, Bezeichnung  FROM Vertrag where AbrechPartner = "' + DBLookupComboBox1.KeyValue + ';

Query1.sql.add(sSQL);
Query1.Active:=True;

except
end;
stringgrid1.Cells[0,0] := 'id';
i := 1;
try
        stringgrid1.Cells[1,0] := 'Vertrag:';
        stringgrid1.Cells[2,0] := 'KundenNr:';
        stringgrid1.Cells[3,0] := 'Vertrag:';
        while not query1.Eof do begin
        
        stringgrid1.Cells[3,i] := tblVertrag1.FieldByName('KundenNr').AsString;
        stringgrid1.Cells[2,i] := tblVertrag1.FieldByName('VertragNr').AsString;
        query1.Next;
    i := i+1;
    end;

Danke im Voraus

Rene