function TMyIEBar.RegisterAndCreateWindow : boolean;
var
 WC : TWndClass;
 Rect : TRect;
begin
 Result := false;
 If MyWnd = 0 then begin
   If Parent = 0 then exit;
   ZeroMemory (@WC, SizeOf (WC));
   If not GetClassInfo (hInstance, Title1, WC) then
     With WC do
     begin
       style := CS_HREDRAW or CS_VREDRAW or CS_GLOBALCLASS;
       lpfnWndProc := @SimpleProc;
       cbClsExtra := 0;
       cbWndExtra := 0;
       hInstance := SysInit.HInstance;
       hIcon := 0;
       hCursor := LoadCursor(hInstance, IDC_ARROW);
       hbrBackground := 0;
       lpszMenuName := nil;                          
       lpszClassName := Title1;
     end;
   Windows.RegisterClass (WC);
   GetClientRect (Parent, Rect);
   CreateWindowEx(0, Title1, nil, WS_CHILD or WS_CLIPSIBLINGS,
                  Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top,
                  Parent, 0, hInstance, Pointer(Self));
//    ShowMessage (IntToStr (Integer (MyWND)));
   Result := MyWnd <> 0;
 end;
end;