problema na consulta

[gihbatalha 0]

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;