Daten mit DataSet in Datenbank schreiben

[fapsons]

Hallo Leute,

habe mir folgende Procedure um Daten aus meiner Firebirddatenbank auszulesen geschrieben.
Nun habe ich ne ganz einfache Frage. Wie muss ich eine zweite Procedure schreiben, um die gleichen Felder auf die Datenbank zu schreiben?

Vielen Dank schon mal.

-fapsons--

Delphi-Quellcode:

procedure Get_DB_Values;   // Auslesen Kundennamen aus DB 
var i, j, k :Integer;
begin
   ...
   with D_DataModule.DataSet do
   begin
       SelectSQL.Clear;
       SelectSQL.Text := 'select upper(f.fname), f.fa_bez, f.faid from FIRMA f where f.haendler = ''N'' and f.stat   <> ''D'' order by 1 asc';
       Open;
   end;

   while not D_DataModule.DataSet.Eof do
   begin
       reg.customer[reg.Ac_ID].ID := D_DataModule.DataSet.FieldByName('FAID').Value;
       reg.Customer[reg.Ac_ID].Company := D_DataModule.DataSet.FieldByName('UPPER').Value;
       reg.Customer[reg.Ac_ID].CompanyType := D_DataModule.DataSet.FieldByName('FA_BEZ').Value;
       D_DataModule.DataSet.Next;
      ...        
   end;
   ...
   D_DataModule.DataSet.Close;