procedure TForm1.MaskEdit1Exit(Sender: TObject);var y, m, d : word;begin decodedate(strtodate(maskedit1.text) + 11, y, m, d); maskedit2.text := inttostr(m) + '/' + inttostrdiv> end;