一个奇怪的问题，请教大家！

我想在一个事件中创建一个已经做好的窗体
如：
            Application.CreateForm(Tclient_form, ClientForm);//变量已经定义好了
            ClientForm.Show;
当在要创建的窗体上的Create事件或onshow事件中执行了一个已经写好的过程后，一执行就报错，请大家帮忙看看。这是写好的过程：
procedure Tclient_form.LockMouse;
var
rtform:TRect;
begin
   rtform:=client_form.BoundsRect;
   MapWindowPoints(handle,0,client_form,0);
   ClipCursor(@rtform);
end;