Pasarle un parameto al With ...???

[ingel]

como no he respondido ningun mensaje , no sabia como hacerlo .. y lei la guia de estilo despues de enviarte el email ... disculpas nuevamente...
El problema es que al hacerlo como me indicaste ...

Frm: TForm;
begin

if lApaisada then
Frm :=TFImpOcapa.Create(Application)
else
Frm :=TFImpOc.Create(Application);

with Frm do begin

QRParam.Caption := EProveedor.text;
QREntEstimada.Caption := EFechaEstimada.Text;
....
end:

me dice que no reconoce QRParam ...(undeclared identifier) la primera instrucccion del with ...
probe poner a frm del tipo TFImpOcapa y paso bien ...pero no seria solucion ..verdad porque tambien necesito que sea TFImpoc ....

Gracias ...