TYPE TDate3 = class(TComponent) private FDay, FMonth, FYear: Word; DummyWord: word; {— event property —}
ប្រភេទ TDate3 = ថ្នាក់ (TComponent) ឯកជន FDay, FMonth, FYear: ព្រះបន្ទូល; DummyWord: ពាក្យ; {- អចលនទ្រព្យព្រឹត្តិការណ៍ —}