.....
function NewmdvPanel(AParent: PControl;
                     ABevelOuter: TBevelCut;
                     ABevelInner: TBevelCut;
                     ABevelWidth: Word;
                     ABorderStyle: TBorderStyle;
                     ABorderWidth: Word): TKOLmdvPanel;
.....
    {$ifdef F_P}
    {$else}
    Result.BorderStyle := ABorderStyle;
    {$endif}
    Result.AttachProc(WndProcmdvPanel);
end;
.....