Delphi Ado update insert betwen 2 entries

I need to update records from one table to another (this is for the main table and f "is the same for the DetailTable.

first the record position of the table record that I want to copy is from:

Tabelamestre (Local_deste_cliente) (1 entry)

NInterv.text:=dbedit1.text;

 Begin
   with  ADOTable_casa do  
      Begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * from  Vibrometria_');
        SQL.Add('Where numeracao LIKE ''%'+NInterv.text );
        Open;
       end;
 end

      

        
        
        
      

    

now I need to update / insert a record from Vibrometria: = Local_deste_cliente (TADOTABLE) Now I need to get the record above and do the same for 2 detail tables

    Vibrometria_Sub (J)  :=   Tabeladetail  (Variaveis_neste_local). ((J) Records 

      

        
        
        
      

    

and I have another table to get the master record from (K) Tabeladetail (Variaveis_neste_local)

Vibrometria_Sub1 (K)  :=   Tabeladetail1(Variaveis_neste_local1). ((k) Records

      

        
        
        
      

    

lest's say I need to update from 1 to N starting from the first table !!!!!!!!

there is a quick solution for this !!!!!!

thanks