Select e Insert em um mesmo botão

Pessoal, Bom dia.

Gostaria de saber como que faz um select , salvar os registros em uma variavel e depois fazer um insert em um mesmo botão ?
Tenho o codigo abaixo onde estava tentando mas sem sucesso.

procedure Tfrmsolicitacaogestor.btnusuariosClick(Sender: TObject);



begin
Controller.DTM.QryLogin.Close;
Controller.DTM.QryLogin.SQL.Clear;
Controller.DTM.QryLogin.SQL.Add('Select * from usuarios ');
Controller.DTM.QryLogin.SQL.Add('Where nome_usuario = '''+unidades.Text+''' ');
Controller.DTM.QryLogin.open;

controller.EnderecoUsuario := Controller.DTM.QryLoginEndereco.value;
controller.BairroUsuario := Controller.DTM.QryLoginBairro.value;
controller.CidadeUsuario := Controller.DTM.QryLoginCidade.value;
controller.TransporteUsuario := Controller.DTM.QryLoginTipo_Transporte.value;

Controller.DTM.QryLogin.Close;
Controller.DTM.QryLogin.SQL.Clear;
Controller.DTM.QryLogin.SQL.Add('insert into cadastrohr (idnome, nome, setor,idgestor,idunidade, dataini,datafim,horaini,horafim,colaborador,justificativa) ');
Controller.DTM.QryLogin.SQL.Add('VALUES ('+controller.idusuario.ToString+', '''+controller.nomeusuario+''', '''+controller.setorusuario+''','''+controller.Gestor+''', '''+controller.unidadeusuario+''', '''+edtdataini.Text+''','''+edtdatafim.Text+''', '''+cbhoraini.Text+''', '''+cbhorafim.Text+''', '''+unidades.text+''','''+edtjusti.Text+''')');
Controller.DTM.QryLogin.ExecSQL;

memo1.Lines.Add(unidades.Text);


end;