Fórum Clonar form em tempo de execução #324215

procedure TForm1.Button1Click(sender :TObject);
var
  FormConsulta :TFormConsulta; // aqui é a classe do seu form de consulta
begin
  FormConsulta := TFormConsulta.Create(Self);
  try
   // algum procedimento para inicializar a consulta adequada
   // a seguir mostrar o form
    FormConsulta.ShowModal;
  finally
    FormConsulta.Free;
  end;
end;

TFrmConsulta = class(TForm)
  ...
  // para este campo movo o valor da chave quando de 
  //um duplo-click no DBGrid
  CodSelecionado :Variant;
  function CnsCliente :TModalResult;
  ...
  function CnsCidade :TModalResult;
end;

function TFrmConsulta.CnsCliente :TModalResult;
begin
  Qry.SQL.Text := ´select codCli, nomCli from clientes order by nomCli´;
  Qry.Open;
  try
    Result := ShowModal;
  finally
    Qry.Close;
  end;
end;
...

FrmConsulta := TFrmConsulta.Create(Self);
try
  if FrmConsulta.CnsCliente = mrOk then
    TbVendasCodCliente.value := FrmConsulta.CodSelecionado;
finally
  FrmConsulta.Free
end;