Здравствуйте, <Аноним>, Вы писали:

А>Обработчик события пробывал засовывать и в TfrmChild, и в cOkno, все равно не реагирует.

Довольно оригинальный подход Или вы используете KOL?
Вообще-то

Object types are supported for backward compatibility only. Their use is not recommended.

Создавать так наследников от TShape нельзя. И это компилируется? Даже не знаю, что посоветовать .
Ну хотя бы так создавайте

s1:= TShape.Create(TfrmChild);

Странный идентификатор pfrmChild. У вас там случайно не так написано:

pfrmChild = ^TfrmChild
TfrmChild = class(TForm)