To activate another procedure

[asdf]

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); 
begin
showmessage('Oops!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i :integer;
begin
  if checklistbox1.Count <> 0 then
  for i:= 0 to CheckListBox1.Items.Count-1 do
  begin
       if CheckListBox1.Checked then begin
          CheckListBox1.Checked:= false;
          CheckListBox1.Checked[i+1]:= true; This line didn't activate procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); 
          exit;
       end;
  end;
end;     

What should I do ?       

[AmatCoder]

You can call procedure directly with:

Code: [Select]

...
CheckListBox1ClickCheck(nil);
...

[Leledumbo]

I don't think it's activated by a change in Checked property. OnClick should either be triggered via mouse or direct call. If you want something to be triggered when Checked property changes, use OnChange instead.