Otomatis Input Tanggal

Assalam 'alaikum agan". maw tnya ni. gmana ya menentukan format inputan tahun di tedit harus dgn format tahun/tahun misal 2012/2013. mksh atas jwaban agan skalian.

edit1.text := edit1.text+'/'+ inttostr(strtoint(edit1.text)+1);
tarok di on exit edit1