Pasarle un parameto al With ...???

[marto]

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

  with Frm do 
  begin 
    ....
  end;

Bienvenido al Polimorfismo

P.D: Dentro del with solo puedes usar propiedades / métodos de TForm, sinó, no te compilará. Si quieres usa lo de los dos forms que sean comunes tendrías que hacer que ambos heredasen de uno comun en el que se implementen esas propiedades / métodos.