Como vocês criam suas telas de Localizar? Vamos debater?

var
  Frm:  TFrmPesquisarProdutos;
  Produto: Integer;
begin

  Frm := TFrmPesquisarProdutos.Create(Self);
  Produto := 0;

  try
    Frm.ShowModal;
    Produto := Frm.ProdutoSelecionado;
  finally
    Frm.Release;
    FreeAndNil(Frm);
  end;

  if Produto > 0 then
      CarregarDadosDoProduto(Produto)
  else
      LimparCampos;
end;

var
  Produto: Integer;
begin

  FrmPesquisarProdutos := TFrmPesquisarProdutos.Create(Self);
  Produto := 0;

  with FrmPesquisarProdutos do 
  begin
    try
      ShowModal;
      Produto := ProdutoSelecionado;
    finally
      Release;
      FreeAndNil(FrmPesquisarProdutos);
    end;
  end;
  if Produto > 0 then
      CarregarDadosDoProduto(Produto)
  else
      LimparCampos;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  begin
    try
      ShowModal;
    finally
      FreeAndNil(Form2);
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TOpenDialog.Create(Self) do
  begin
    InitialDir := ´C:\Temp\´;
    DefaultExt := ´bmp´;
    Filter := ´Arquivos Bitmaps(*.BMP)|*.bmp|Todos os arquivos(*.*)|*.*´;
    if Execute then
    begin
      ShowMessage(´O usuário escolheu o arquivo: ´ + FileName);
    end;
  end;
end;

interface

  TDlgPesquisa = class(TForm)
    ...
  public
    class function Executar(const SQL: string; var Id: Integer; var Nome: string): Boolean;
    property Id: Integer read GetId write SetId;
    property Nome: string read GetNome write SetNome;
  end;

implementation
...

  class function TDlgPesquisa.Executar(const SQL: string; var Id: Integer; var Nome: string): Boolean;
  var
    // A variável local é importante para permitir várias instâncias ao mesmo tempo
    DlgPesquisa: TDlgPesquisa;
  begin
    DlgPesquisa := TDlgPesquisa.Create(nil);
    try
      Result := IsPositiveResult(DlgPesquisa.ShowModal);
      if Result then
      begin
        Id := DlgPesquisa.Id;
        Nome := DlgPesquisa.Nome;
      end;
    finally
      DlgPesquisa.Release;
    end;
  end;
...
end.

  uses
    ..., Dlg_Pesquisa;

  procedure TFormCadastro.BtnPesquisarNomeClick(Sender: TObject);
  var
    IdProduto: Integer;
    NomeProduto: string;
  begin
    if TDlgPesquisa.Executar(´SELECT "PrdId", "PrdNome" FROM PRODUTOS´, IdProduto, NomeProduto) then
    begin
      cdsVendasVenPrdId.AsInteger := IdProduto;
      cdsVendasPrdNome.AsString := NomeProduto;
    end;
  end;

try
  MeuForm.ShowModal;
finally
  MeuForm.Free;
end;

   Form := Nil;