Кнопка копирование (Page 2 of 2)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.TableGrid1.dbItemID<>-1 then
    begin
        SQLExecute('INSERT INTO application (date, record_count, summa, kommentarii, id_dom, id_usluga, id_rabota, id_users, id_region, id_city, id_numdom, nomer_doc, plan_rab, plan_sum, plan_usl, vipolnen, document, document_filename, isobr, isobr_filename, id_rekvizit, org, inn_org, id_master, chas, sum_chas) SELECT date, record_count, summa, kommentarii, id_dom, id_usluga, id_rabota, id_users, id_region, id_city, id_numdom, nomer_doc, plan_rab, plan_sum, plan_usl, vipolnen, document, document_filename, isobr, isobr_filename, id_rekvizit, org, inn_org, id_master, chas, sum_chas FROM application WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
        Form1.TableGrid1.dbUpdate; // Update TableGrid
        Form1.TableGrid1.dbItemID := Last_Insert_id('application'); // select new record in TableGrid
    end;
end;