Kopieren aus DBGrid1 in DBGrid

[Dieter11]

Hallo Zusammen,

ich versuche Daten aus einem Grid in ein 2. Grid zu kopieren:

Delphi-Quellcode:

procedure Tfrm_Testformular.DBGrid1DblClick(Sender: TObject);
var
  currentID: Integer;

begin

  with dm_Nails4You_Artikel do
  begin

    with ADOQuery_Artikel do
    Begin

       currentID := AdoQuery_Artikel.FieldValues['id'];
       ShowMessage('CurrentID: ' + IntToStr(CurrentID));

       SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung, VK_Netto, VK_Brutto) SELECT Artikel.ID, Artikel.Bezeichnung, Artikel.VK_Netto, Artikel.VK_Brutto FROM Artikel WHERE Artikel.ID = 17';
       Parameters.ParseSQL(SQL.Text, true);
       Parameters.ParamValues['ID'] := currentID;

       ExecSQL;
    End;
  end;
end;

Das Ergebnis aus ShowMessage ist immer CurrentID: 1.
Anschliessend erhalte ich die Meldung: ADOQuery_Artikel: Parameter 'ID' nicht gefunden.

Hinter dm_Nails4You_Artikel steckt je ein ADOQuery und ein DataSource beider Tabellen. Die zu kopierenden Felder der Tabellen sind identisch.

Weiss jemand Rat?

Gruss

Dieter

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]