Pasarle un parameto al With ...???

[ingel]

Hola ... despues de hoy prometo no escribir por unos dias ...

Segun una var creo un form u otro y tengo un with que es igual para los 2
como se lo indico?

if lApaisada then Application.CreateForm(TFImpOcapa, FImpOcApa)
else Application.CreateForm(TFImpOc, FImpOc);

with FImpOcapa do begin
( o FImpOc )
....
end;

puedo hacer un procedimiento que reciba un form y escribir dentro lo del with o hay algo mas simple ...?

Gracias mil