procedure TForm1.Button1Click(Sender: TObject);
begin
  //リストボックスクリア
  Listbox1.Clear;

  //日付表示
  if  CheckBox1.Checked then
    Listbox1.Items.Add(DateToStr(Now));

  //曜日表示
  if  CheckBox2.Checked then
    case  DayOfWeek(Now) of
      1 : Listbox1.Items.Add('日曜日');
      2 : Listbox1.Items.Add('月曜日');
      3 : Listbox1.Items.Add('火曜日');
      4 : Listbox1.Items.Add('水曜日');
      5 : Listbox1.Items.Add('木曜日');
      6 : Listbox1.Items.Add('金曜日');
      7 : Listbox1.Items.Add('土曜日');
    end;

  //時刻表示
  if  CheckBox3.Checked then
    Listbox1.Items.Add(TimeToStr(Now));
end;