[gewasop]

Код:

var
  tmpid: string; //Временная переменная
begin
  tmpid := DM1.ADOTable.FieldsByName('TN').AsString;  //Получение ID выбранного поля(Расчет на то, что TN ключевое уникальное поле)
  DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
  DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
  DM1.ADOQueryTchm.SQL.Add('FROM Tchm WHERE TN=' + Trim(tmpid)); //Добавление условия к SQL-запросу
end;