Procedure v_not_flat_component;
Var
i1,i:integer;
Begin
for i1:=0 to application.ComponentCount-1 do
 if application.Components[i1].InheritsFrom(TForm) then

   for i := 0 to application.Components[i1].ComponentCount-1 do
    begin
     if application.Components[i1].Components[i].InheritsFrom(TEdit) then
        TEdit(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TDBEdit) then
        TDBEdit(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TMaskEdit) then
        TMaskEdit(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TComboBox) then
        Begin
        TComboBox(application.Components[i1].Components[i]).Ctl3D := True;
        TComboBox(application.Components[i1].Components[i]).BevelKind := BkNone;
        end;
     if application.Components[i1].Components[i].InheritsFrom(TDBComboBox) then
        Begin
        TDBComboBox(application.Components[i1].Components[i]).Ctl3D := True;
        TDBComboBox(application.Components[i1].Components[i]).BevelKind := BkNone;
        end;
     if application.Components[i1].Components[i].InheritsFrom(TStringGrid) then
        TStringGrid(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TDBGrid) then
        TDBGrid(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TTreeview) then
        TTreeview(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TListBox) then
        TListBox(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TShellTreeview) then
        TShellTreeview(application.Components[i1].Components[i]).Ctl3D := True;
     if application.Components[i1].Components[i].InheritsFrom(TMemo) then
        TMemo(application.Components[i1].Components[i]).Ctl3D := True;
    end;
end;

RemoveFlat (Application)

uses
  TypInfo;

procedure RemoveFlat (Component: TComponent);
var
  K: Integer;
  aPropInfo : PPropInfo;
begin
  if Component = nil then
    Exit;

  if Component is TControl then begin
    aPropInfo := GetPropInfo (Component, 'Ctl3D', [tkEnumeration]);
    if aPropInfo <> nil then
      SetOrdProp (Component, aPropInfo, Ord (True));

    aPropInfo := GetPropInfo (Component, 'BevelKind', [tkEnumeration]);
    if aPropInfo <> nil then
      SetOrdProp (Component, aPropInfo, Ord (bkNone));
  end;

  for K := 0 to Component.ComponentCount - 1 do
    RemoveFlat (Component.Components [K]);
end;

type
  TWinControlStub = class(TWinControl);

procedure RemoveFlat (Control: TControl);
var
  i: Integer;
begin
  if Control is TWinControl then 
    TWinControlStub(Control).Ctl3D := True;

    for i := 0 to Control.ControlCount - 1 do
      RemoveFlat (Control.Controls[i]);
  end;
end;

    _________
 __|__       |
|     | F2___|__
| F1 _|__|      |
|   |    |  M2  |
|___| M1 _____  |
    |___|     | |
        | M1M |_|
        |     |
        |_____|

    _________
 __|__       |
|     | F2___|__
| F1 _|__|_     |
|   |      |M2  |
|___| M1 __|__  |
    |___|     | |
        | M1M |_|
        |     |
        |_____|

    _________
 __|         |
|  |    F2___|__
|F1|     |      |
|  |_____|  M2  |
|___| M1 |      |
    |___||      |
        ||______|
        |     |
        |_____|

А>type
А>  TWinControlStub = class(TWinControl);

А>procedure RemoveFlat (Control: TControl);
А>var
А>  i: Integer;
А>begin
А>  if Control is TWinControl then 
А>    TWinControlStub(Control).Ctl3D := True;

А>    for i := 0 to Control.ControlCount - 1 do
А>      RemoveFlat (Control.Controls[i]);
А>  end;
А>end;
А>

procedure SetReadOnlyForControls (Component : TComponent; ReadOnly : Boolean);
var
  K : Integer;
  aPropInfo : PPropInfo;
  aObj : TObject;
begin
  for K := 0 to Component.ComponentCount - 1 do begin
    aPropInfo := GetPropInfo (Component.Components [K], 'Properties', [tkClass]);
    if aPropInfo = nil then
      aObj := Component.Components [K]
    else begin
      aObj := GetObjectProp (Component.Components [K], aPropInfo);
      if aObj = nil then
        Continue;
    end;

    aPropInfo := GetPropInfo (aObj, 'ReadOnly', [tkEnumeration]);
    if aPropInfo = nil then begin
      if aObj is TWinControl then
        if Pos('CHECKBOX', UpperCase (aObj.ClassName)) > 0 then
          TWinControl (aObj).Enabled := not ReadOnly;
      Continue;
    end;

    if aPropInfo.SetProc = nil then
      Continue;

    { only boolean props }
    if GetTypeData (aPropInfo.PropType^).BaseType^ <> System.TypeInfo(Boolean) then
      Continue;

    SetOrdProp (aObj, aPropInfo, Ord (ReadOnly));
  end;
end;