окно в winapi

wc.cbSize:=sizeof(wc);
  wc.style:=cs_hredraw or cs_vredraw;
  wc.lpfnWndProc:=@wndproc;
  wc.cbClsExtra:=0;
  wc.cbWndExtra:=0;
  wc.hInstance:=0;*1
  wc.hIcon:=loadicon(0,idi_application);
  wc.hCursor:=loadcursor(0,idc_arrow);
  wc.hbrBackground:=color_btnface+1;
  wc.lpszMenuName:=nil;
  wc.lpszClassName:='nmn window';
  registerclassex(wc);

  window:=createwindowex(0,'nmn window',
                    'spidometr',
                    ws_visible or ws_popup or ws_border or ws_thickframe,
                    100,
                    100,
                    100,
                    100,
                    0,
                    0,
                    hinstance,
                    nil);
  //showwindow(window,sw_show);
  updatewindow(window);
  while getmessage(msg,0,0,0) do
    begin
      translatemessage(msg);*2
      dispatchmessage(msg);*3
    end;