The problem is Save As.  I want the new record to keep the User's input,
but in a new record with a new name.  basiaclly copy existing record or
data into new record, change the query name and then post change.

Insert creates an empty record and Edit dumps the previous "QueryName'.  

Any suggestions?  Maybe get rid of the data aware stuff and handle all of
the data passing  myself???

Help.

table1.Insert;
table1 ['QueryName'] := 'Copy Of ' + oldQueryName;
// now prompt the user for a better QueryName

Assuming your main table object is called FirstTbl and positioned on a
valid record, some code like this may do the trick...

  with TTable.Create(nil) do begin
    try
      TableName:=FirstTbl.TableName;
      DatabaseName:=FirstTbl.DatabaseName;
      Open;
      Insert;
      For ix:=0 to FirstTbl.FieldCount-1 do begin
        Fields[ix].Value:=FirstTbl.Fields[ix].Value;
      end;
      FieldByName('QUERYNAME').AsString:='blah';{ Unique key field }
      Post;
    finally
      Free;
    end;
  end;

In article <01be996e$1f13dbc0$aa4d398a@DP13733>, Shell Oil Company
<dkclave...@shellus.com> writes

procedure TMainForm.DupeButtonClick(Sender: TObject);
var
  aField : Variant ;
  i      : Integer ;
begin
  //Create a variant Array
  aField := VarArrayCreate(
               [0,TableName.Fieldcount-1],
                             VarVariant);

  // read values into the array
  for i := 0 to (TableName.Fieldcount-1) do begin
     aField[i] := TableName.fields[i].Value ;
  end;

 TableName.Insert;  // You could use APPEND here also.

  // Put array values into new the record
  for i := 0 to (TableName.Fieldcount-1) do begin
     TableName.fields[i].Value := aField[i] ;
  end;
end;

Paul C.