Перенос данных с исправлением в другую базу

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if (Form1.TableGrid2.SelectedRow = -1) then showmessage('Выберите запись') else
  begin
      if IDYES = MessageBox('Вернуть сотрудника?', 'Вернуть', MB_YESNO)then begin
      SQLExecute('UPDATE userwork SET work="0" WHERE id='+Form1.TableGrid2.sqlValue);
      UPDATEDATABASE('userwork');
      end;
  end;
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
workName: string;             
begin
  if (Form1.TableGrid1.SelectedRow = -1) then showmessage('Выберите запись') else
  begin
  workName:=InputBox('Назначить работe','Имя работы','');
  if (workName<>'') then begin
      SQLExecute('INSERT INTO work(name)VALUES("'+workName+'")');
      SQLExecute('UPDATE userwork SET id_work="'+IntToStr(Last_Insert_id)+'" WHERE id ='+Form1.TableGrid1.sqlValue);
      SQLExecute('UPDATE userwork SET work="1" WHERE id='+Form1.TableGrid1.sqlValue);
      UPDATEDATABASE('userwork');
      UPDATEDATABASE('work');
  end;
  end;
end;