Código:
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.