1:

Customer.AppendRecord([CustNoEdit.Text,CoNameEdit.Text, AddrEdit.Text, Null, Null, Null, Null, Null, Null, DiscountEdit.Text]);					

1:
2:
3:
4:
5:

 for i := 0 to Table1.FieldCount - 1 do begin
   TempTable.Append;
   TempTable.Fields.Fields[i].AsString := Table1.Fields.Fields[i].AsString;
   TempTable.Post;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Function DBEmpty(dts : TDataSet) : Boolean; // prüft, ob eine geöffnete Tabelle leer ist
begin
  Result := not dts.Active;
  if not Result then begin
    Result := dts.eof and dts.bof;
  end;
end;

procedure KopiereAktuellenDatensatzMitAppend(qQuelle, qZiel : TDataset; Speichern : Boolean);
var
  cnt : Integer;
  arr : array of variant;
begin
  if qQuelle.Active and (not DBEmpty(qQuelle)) then begin // Quelle geöffnet und nicht leer ?
// Daten ins Zwischen-Array schreiben
    SetLength(arr, qQuelle.FieldCount);
    for cnt := 0 to qQuelle.FieldCount - 1 do begin
      arr[cnt] := qQuelle.Fields[cnt].AsVariant;
    end;
// Im Ziel einen neuen Datensatz anlegen
    qZiel.Append;
// und füllen
    for cnt := 0 to qZiel.FieldCount - 1 do begin
      qZiel.Fields[cnt].AsVariant := arr[cnt];
    end;
// Soll gleich gespeichert werden oder der Datensatz zur Bearbeitung "offen" bleiben?
    if Speichern then begin
      qZiel.Post;
    end;
  end;
end;					

1:
2:
3:
4:

 insert into Zieltabelle
       select * from Quellentabelle
       where Bedingung1 = Bedingung1
         and Bedingung2 = Bedingung2					

1:
2:
3:
4:
5:

 insert into Zieltabelle
       (Feld1,Feld2,Feld3...)
       select (Feld1,Feld2,Feld3...) from Quellentabelle
       where Bedingung1 = Bedingung1
         and Bedingung2 = Bedingung2