procedure TForm1.Button2Click(Sender: TObject); begin MyDate.Day:=29; {writes to Day property, using SetDate() which from inside invokes DoChange() firing the event} end;
នីតិវិធី TForm1.Button2Click (អ្នកផ្ញើ: TObject); ចាប់ផ្តើមការ MyDate.Day:=29; {សរសេរទៅទ្រព្យសម្បត្តិថ្ងៃដោយប្រើ SetDate () ដែលមានពីខាងក្នុងជាប់ DoChange () បាញ់ព្រឹត្តិការណ៍} ចុង;