[Dima170792]

прописал следующее

Код:

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DBNavigator1: TDBNavigator;
    sSkinManager1: TsSkinManager;
    CoolTrayIcon1: TCoolTrayIcon;
    sPanel1: TsPanel;
    sPanel2: TsPanel;
    sButton1: TsButton;
    Edit1: TsEdit;
    sButton2: TsButton;
    sPanel4: TsPanel;
    sButton3: TsButton;
    sButton4: TsButton;
    sButton5: TsButton;
    sButton6: TsButton;
    sButton7: TsButton;
    Edit2: TsEdit;
    sPanel3: TsPanel;
    DBGrid1: TDBGrid;
    sSkinProvider1: TsSkinProvider;
    sPanel5: TsPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    sWebLabel1: TsWebLabel;
    sPanel6: TsPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    sComboBox1: TsComboBox;
    Edit3: TEdit;
    Image1: TImage;
    sLabel1: TsLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sButton1Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure sButton5Click(Sender: TObject);
    procedure sButton6Click(Sender: TObject);
    procedure sButton7Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sSkinProvider1TitleButtons0MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure CoolTrayIcon1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure sComboBox1Change(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    
procedure dima(Sender: TObject);

{$R *.dfm}



procedure TForm1.sComboBox1Change(Sender: TObject);//вот что записано в стандартном обработчике событий
begin

sSkinManager1.SkinName:=sComboBox1.Items[sComboBox1.itemIndex];
end;

procedure TForm1.dima(Sender: TObject);//ето я написал
 begin
sComboBox1.OnChange(dima);
end;
end.

всёравно выкидует

Код:

Not enough actual parametrs

Что я сделал неправильно?