update table does not have pk or row identifier oque está acontecendo?

 while (FDQUERY1.Eof <> True) do begin

               fdbusca.Active := false;
               fdbusca.sql.text := 'select ID,PACIENTE,DATA,TEXTO from '+tabela1.text+' where id='+FDQUERY1.FieldByName('ID').AsString;
               fdbusca.Active := true;

               qSqlInsere.Active := false;
               qSqlInsere.sql.text := 'select * from '+tabela2.text;
               qSqlInsere.Active := true;

               DSINSERIR.DataSet.Edit;
               DsINSERIR.DataSet.FieldByName('ID').Value := fdbusca.FieldByName('ID').Value;
               DsINSERIR.DataSet.FieldByName('CODCLI').Value:= fdbusca.FieldByName('PACIENTE').Value;
               DsINSERIR.DataSet.FieldByName('DATAREGISTRO').Value:= fdbusca.FieldByName('DATA').Value;
               DsINSERIR.DataSet.FieldByName('ANOTACAO').ASSTRING:= fdbusca.FieldByName('TEXTO').AsString;
               virgula1 := ',';

                 
                DSINSERIR.DataSet.Post;
                fdquery1.Next;