[ryderx34]

Сообщение от delphicoding

одного нового окна из двух возможных

А, ну тогда:

Код:

var 
  P: TForm;
begin
  case aGroupId of
  1: begin
    P := TfBaseFormA.Create(Application);
    (P as TfBaseFormA).VarTemp := not aIsShift;
  end;
  2: begin
    P := TfBaseFormB.Create(Application);
    (P as TfBaseFormB).VarTemp := not aIsShift;
  end;
end;