В качестве варианта -
-- child
TFChild=class(TForm)
private
RetPrc :TNotifyEvent;
public
property ReturnProc:TNotifyEvent read RetPrc write RetPrc;
end;
-- в родительской форме
procedure TMyForm.analiz(Sender :TObject);
var sr:TFChild;
begin
sr:=Sender as TFChild;
--- ... ---
end;

-- передача управления
FChild.ReturnProc:=analiz; // при инициализации
// При наступл соотв события для TFChild
ReturnProc(self);