procedure TForm1.Button1Click(Sender: TObject);
begin
  ・・・
  //時刻表示
  //if  CheckBox3.Checked then
  //  Listbox1.Items.Add(TimeToStr(Now));

  if  CheckBox3.Checked then
    case  RadioGroup1.ItemIndex  of
      //ミリ秒表示する
       0  :  Listbox1.Items.Add(FormatDateTime('hh:nn:ss:zzz',Now));
      //ミリ秒表示しない
       1  :  Listbox1.Items.Add(FormatDateTime('hh:nn:ss',Now));
      //どちらも未選択（ローカライゼーション情報より形式指定）
      -1  :  Listbox1.Items.Add(TimeToStr(Now));
    end;
end;