[U.B.M.]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to CheckListBox1.Count-1 do
    CheckListBox1.Checked[i] := true;
end;