[ryderx34]

Код:

var 
  P: TfBaseForm;

P := TfBaseForm.Create(Application);
P.VarTemp := not aIsShift;