Botão de Pesquisa delphi

fazer uma pesquisa na tela de pesquisa e mandar o resultado para os edits faça o seguinte :
Criei um exemplo básico. Criei uma aplicação normal com 2 formulários. O primeiro deles é o frmPrincipal, e apenas ele é iniciado com o sistema. Nele coloquei um campo TEdit com o nome de edtCampo, e coloquei um TButton que chama btnPesquisar.
O outro formulário se chama frmPesquisa. Como se trata apenas de um exemplo de manipulação de informação atraves dos formularios, não coloquei um grid, e sim um TListBox já com informações adicionadas, apenas para teste. Criei também nesse formulário um botão OK.

No btnPesquisar do frmPrincipal coloque o seguinte código:

procedure TfrmPrincipal.btnPesquisarClick(Sender: TObject);
begin
  Application.CreateForm(TfrmPesquisa, frmPesquisa);
  frmPesquisa.ShowModal;
  edtCampo.Text := frmPesquisa.lbItens.Items.Strings[frmPesquisa.lbItens.ItemIndex];
  FreeAndNil(frmPesquisa);
end;

No btnOK do frmPesquisar coloque o conteudo

procedure TfrmPesquisa.btnOKClick(Sender: TObject);
begin
  Close;
end;