[friz]

Код:

const Month: Array [1..12] of String = ('Январь', 'Февраль', 'Март', 'Апрель',
                                'Май', 'Июнь', 'Июль', 'Август',
                                'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
var n: Integer;
.......................

form2.edit1.text := copy(form1.edit1.text,1,2);
n := StrToInt(copy(form1.edit1.text,4,2));
form2.edit2.text := Month[n];
form2.edit3.text := copy(form1.edit1.text,7,4);