[apicito]

Perdona pero no entiendo lo que me sugieres.
En TExpedientes tengo una variable global ExpConsulta : TExpconsulta.
Utilizando esta variable y en el
procedure TExpedientes.FormShow(Sender: TObject);
hago
ExpConsulta:=TExpConsulta.create(self)