간단히 구성해 본내용입니다.
동적 쿼리에서 필드명을 자동으로만들기 예제입니다.
Bold체를 눈여겨 보시면 될듯.

with DBISAMQuery2 do
begin
  Close;
  SQL.Clear;
  SQL.Text := 'Select * from Clean_Drop';
  Open;

  S := '';
  S1 := '';
  for I := 0 to FieldCount - 1 do
  begin
    S := S + Fields[I].FieldName + ',';
    S1 := S1 + ':' + Fields[I].FieldName + ',';
  end;
     S := Copy(S, 1, length(S) - 1) + ') Values ( ';
  S1 := Copy(S1, 1, length(S1) - 1) + ') ';

  DBISAMQuery3.Close;
  DBISAMQuery3.SQL.Clear;
  DBISAMQuery3.SQL.Text := 'Insert into Temp_Clean_Drop (' + S + S1;

  while not Eof do
  begin
    for I := 0 to FieldCount - 1 do
       DBISAMQuery3.Params[I].Assign(Fields[I]);

    DBISAMQuery3.ExecSQL;
    next;
  end;

end;

참고만 하세요.