#pas
procedure TColorSelector.CreateParams;
begin
  inherited CreateParams(Params);     // это комментарий
  with Params do
  begin
    WindowClass.style := 'CS_DBLCLKS';    // парсинг строк
    Style := Style or WS_CLIPCHILDREN;  
    if NewStyleControls and Ctl3D then
      ExStyle := ExStyle or WS_EX_CLIENTEDGE
    else
      Style := Style or WS_BORDER;
  end;
  Color := clWindow;
end;