Daten in StringGrid einlesen und in DB abspeichern

[muenchner]

Mein Quellcode lauted:

SQL-Code:

procedure TForm8.DBLookupComboBox1CloseUp(Sender: TObject);
var
sSQL, s1sql: String;
 i: Integer;
begin
  i :=1;
Query1.Close;
Query1.SQL.Clear;

sSQL :=  'SELECT VertragNr, KundenNr FROM Vertrag where AbrechPartner = "' + DBLookupComboBox1.KeyValue +'"';

       stringgrid1.Cells[1,0] := 'VertragNr:';
       stringgrid1.Cells[2,0] := 'KundenNr:';

Query1.sql.add(sSQL);
Query1.Active:=True;
    while not query1.Eof do begin
        stringgrid1.Cells[2,i] := tblVertrag1.FieldByName('KundenNr').AsString;
        stringgrid1.Cells[1,i] := tblVertrag1.FieldByName('VertragNr').AsString;
        i := i+1;
  query1.Next;

Query2.Close;
Query2.SQL.Clear;
s1SQL :=  'SELECT Sum(Zeichensumme) As Summe FROM Vertrag where AbrechPartner ="' + DBLookupComboBox1.KeyValue +'"';

Query2.sql.add(s1SQL);
Query2.Active:=True;
Edit1.Text := (Query2.FieldValues['Summe'])

end;
end;

end.

und was dabei rauskommt, siehst du auf der Abbildung.

Mir wäre aber schon geholfen, wenn mir jemand sagen kann, wie ich die DBGrid in eine Tabelle speichern kann.