problema na consulta

Tenho dois forms, um de cadastro de paciente e outro de consulta. No form de consulta tem um combobox que pega o nome de todos os pacientes salvos no banco, o problema é, quando eu faço o cadastro de um novo paciente, esse combobox não pega o novo nome, só se você fechar o programa e abrir de novo, alguém tem uma ideia? //AO CRIAR O FORM DA CONSULTA PEGA OS NOMES NO BANCO procedure TFFicha.FormCreate(Sender: TObject). begin
//atualizar para a data atual

dateDataAv.DateTime:= Today(). //pega nome dos pacientes e joga no combobox FDQuery1.Close. FDQuery1.SQL.Clear. FDQuery1.SQL.Add('select nome from paciente order by nome'). FDQuery1.Open. editNome.Clear. while not FDQuery1.Eof do begin editNome.Items.Add(FDQuery1.Fields[0].AsString). FDQuery1.Next. end. FDQuery1.Close. FDQuery1.SQL.Clear. end. 

//CADASTRO DE PACIENTE

procedure TFCadPac.btCadastrarClick(Sender: TObject). var nome,data,sexo,cpf,rg,rua,compl,bairro,cidade,estado, cep,tel,cel,email: string. 

begin

 nome:= edNome.Text. data:= FormatDateTime('yyyy-mm-dd', StrToDateTime(edData.Text)). sexo:= cbSexo.Text. cpf:= edCPF.Text. rg:= edRG.Text. rua:= edRua.Text. compl:= edCompl.Text. bairro:= edBairro.Text. cidade:= edCidade.Text. estado:= cbEstado.Text. cep:= edCEP.Text. tel:= edTel.Text. cel:= edCel.Text. email:= edEmail.Text. FDQuery1.Close. FDQuery1.SQL.Clear. FDQuery1.SQL.Text:= 'insert into paciente(nome,data_nasc,sexo,cpf,rg,endereco,'+ 'complemento,bairro,cidade,estado,cep,telefone,celular,email) values '+ '("'+nome+'","'+data+'","'+sexo+'","'+cpf+'","'+rg+'","'+rua+'","'+compl+'",'+ '"'+bairro+'","'+cidade+'","'+estado+'","'+cep+'","'+tel+'","'+cel+'","'+email+'")'. FDQuery1.ExecSQL. FDQuery1.Close. FDQuery1.SQL.Clear. ShowMessage('Cadastro realizado com sucesso'). end.