procedure TForm1.myDateChange(Sender: TObject); {actual event handler} begin ShowMessage(‘The day has changed’); end;
នីតិវិធី TForm1.myDateChange (អ្នកផ្ញើ: TObject); {កម្មវិធីដោះស្រាយព្រឹត្តិការណ៍ពិតប្រាកដ} ការចាប់ផ្តើម ShowMessage (ក្នុងមួយថ្ងៃ€ ~The បានchangedâ€TM); បញ្ចប់;