ShowModalControl

function ShowModalControl(

  aControl: TControl;

  const BS: TFormBorderStyle;

  const BI: TBorderIcons;

  const WS: TWindowState;

  const aColor: TColor;

  const BW: Integer;

  const Title: string;

  const BeforeShowModal: TNotifyEvent = Nil

):TModalResult;