Runtime error 2 at 0040a4b6

program LAB6;   {FF Soft}
 
uses windows, messages; {интерфейсы к системным DLL}
var
    hwnd1,hwnd2:THandle;
 
function WndProc1(hWnd: THandle; Msg: integer;
                 wParam: longint; lParam: longint): longint;
                 stdcall; forward;
function WndProc2(hWnd: THandle; Msg: integer;
                 wParam: longint; lParam: longint): longint;
                 stdcall; forward;
var CreationCounter:integer=0; // Счетчик созданных главных окон
 
procedure WinMain; {Основной цикл обработки сообщений}
  const szClass1Name='Admin';
        szClass2Name='Dialog';
  var   wndClass1,wndClass2:TWndClassEx;
        msg:TMsg;
 
begin
  wndClass1.cbSize:=sizeof(wndClass1);
  wndClass1.style:=0;
  wndClass1.lpfnWndProc:=@WndProc1;
  wndClass1.cbClsExtra:=0;
  wndClass1.cbWndExtra:=dlgwindowextra;
  wndClass1.hInstance:=hInstance;
  wndClass1.hIcon:=loadIcon(0, idi_Application);
  wndClass1.hCursor:=loadCursor(0, idc_Arrow);
  wndClass1.hbrBackground:=GetStockObject(ltgray_Brush);
  wndClass1.lpszMenuName:=nil;
  wndClass1.lpszClassName:=szClass1Name;
  wndClass1.hIconSm:=loadIcon(0, idi_Application);
 
  wndClass2.cbSize:=sizeof(wndClass2);
  wndClass2.style:=0;
  wndClass2.lpfnWndProc:=@WndProc2;
  wndClass2.cbClsExtra:=0;
  wndClass2.cbWndExtra:=dlgwindowextra;
  wndClass2.hInstance:=hInstance;
  wndClass2.hIcon:=loadIcon(0, idi_Application);
  wndClass2.hCursor:=loadCursor(0, idc_Arrow);
  wndClass2.hbrBackground:=GetStockObject(ltgray_Brush);
  wndClass2.lpszMenuName:=nil;
  wndClass2.lpszClassName:=szClass2Name;
  wndClass2.hIconSm:=loadIcon(0, idi_Application);
 
  RegisterClassEx(wndClass1);
  RegisterClassEx(wndClass2);
 
  hwnd1:=CreateWindowEx(ws_ex_controlparent,
         szClass1Name, {имя класса окна}
         'Администратор',    {заголовок окна}
         ws_popupwindow or ws_sysmenu or ws_caption or ws_border or ws_visible,       {стиль окна}
         10,                      {Left}
         10,                      {Top}
         350,                    {Width}
         300,                   {Height}
         0,                       {хэндл родительского окна}
         0,                       {хэндл оконного меню}
         hInstance,               {хэндл экземпляра приложения}
         nil);                    {параметры создания окна}
 
  hwnd2:=CreateWindowEx(ws_ex_controlparent,
         szClass2Name, {имя класса окна}
         'Диалог с пользователем',    {заголовок окна}
         ws_popupwindow or ws_sysmenu or ws_caption or ws_border or ws_visible,       {стиль окна}
         500,                     {Left}
         350,                     {Top}
         350,                     {Width}
         150,                     {Height}
         0,                       {хэндл родительского окна}
         0,                       {хэндл оконного меню}
         hInstance,               {хэндл экземпляра приложения}
         nil);                    {параметры создания окна}
 
 
  while GetMessage(msg,0,0,0) do begin {получить очередное сообщение}
    if not (IsDialogMessage(hwnd1,msg) or IsDialogMessage(hwnd2,msg))
           {Если Windows не распознает и не обрабатывает клавиатурные сообщения
            как команды переключения между оконными органами управления,
            тогда чообщение идет на стандартную обработку}
    then begin
      TranslateMessage(msg);   {Windows транслирует сообщения от клавиатуры}
      DispatchMessage(msg);    {Windows вызовет оконную процедуру}
    end;
  end; {выход по wm_quit, на которое GetMessage вернет FALSE}
end;
 
function WndProc1(hWnd: THandle; Msg: integer; wParam: longint; lParam: longint): longint; stdcall;
  const
      edit=1;
      btnAdd=2;
      btnDel=3;
      list=4;
  var i:integer;
      rect:TRect;
      buffer: array[0..255] of char;
      dat: TextFile;
begin
  result:=0;
  case Msg of
    wm_create: {Органы управления создаются при создании главного окна}
      begin
        inc(CreationCounter);
        GetClientRect(hwnd,rect); //размеры клиентской области
        CreateWindow('static',
                   'Введите пароль :',
                   ws_visible or ws_child,
                   20,20,
                   120,20,
                   hwnd,
                   0,
                   hInstance,
                   nil);
        CreateWindowEx(WS_EX_CLIENTEDGE, // Утопленная рамка
                   'edit',
                   '',// пустой текст в поле ввода
                   ws_visible or ws_child or ws_border or ws_tabstop or
                   WS_GROUP, //Группа закончена, отсюда начинается следующая
                   150,20,
                   150,22,
                   hwnd,
                   1,
                   hInstance,
                   nil);
        CreateWindow('button',
                  'Добавить',
                   ws_visible or ws_child or bs_pushbutton or ws_tabstop or ws_group ,
                   190,45,
                   100,20,
                   hWnd,
                   2, //btnSet
                   hInstance,
                   nil);
 
       CreateWindow('button',
                  'Удалить',
                   ws_visible or ws_child or bs_pushbutton or ws_tabstop or ws_group,
                   190,100,
                   100,20,
                   hWnd,
                   3, //btnClear
                   hInstance,
                   nil);
 
       CreateWindowEx(WS_EX_CLIENTEDGE, // Утопленная рамка
                   'listbox',
                   '',
                   ws_visible or ws_child or ws_border or ws_tabstop or ws_vscroll,
                   5,100,
                   180,rect.bottom-100,
                   hwnd,
                   4, //list
                   hInstance,
                   nil);
        // Заполнение начального списка паролей из текстового файла
        assignfile(dat,'pass6.txt');
        reset(dat);
        While not eof(dat) do
          begin
            readln(dat,buffer);
            SendDlgItemMessage(hwnd,4{list},LB_ADDSTRING,0,integer(@buffer));
          end;
        closefile(dat);
      end;
    wm_command: // Обработка команд от всех органов управления
      case hiword(wparam) of
        BN_CLICKED:
          case loword(wparam) of
            btnAdd:
              begin
                GetWindowText(GetDlgItem(hwnd,edit),@buffer,16);
                if (GetWindowTextLength(GetDlgItem(hwnd,edit))=0) then
                  MessageBox(hwnd,'Пароль должен состоять как минимум из одного символа','Ошибка пароля',MB_Ok or MB_ICONERROR)
                else
                  SendDlgItemMessage(hwnd,list,LB_ADDSTRING,0,integer(@buffer));
              end;
            btnDel:
              begin
                i:=SendDlgItemMessage(hwnd,list,LB_GETCURSEL,0,0);
                if (i=LB_ERR) then
                  MessageBox(hwnd,'Укажите пароль для удаления из списка','Не указан элемент спиcка',MB_Ok or MB_ICONERROR)
                else
                  SendDlgItemMessage(hwnd,list,LB_DELETESTRING,i,0);
              end;
          end;
      end;
    wm_close: DestroyWindow(hwnd);
    wm_destroy:
      begin // Органы управления уничтожаются автоматически
        dec(CreationCounter);
        if CreationCounter=0 then PostQuitMessage(0);
      end;
    else
      result:=DefDlgProc(hwnd,msg,wparam,lparam);
  end;
end;
 
function WndProc2(hWnd: THandle; Msg: integer; wParam: longint; lParam: longint): longint; stdcall;
  const
      edit=1;
      btnCheck=2;
 
  var i:integer;
      rect:TRect;
      buffer: array[0..255] of char;
begin
  result:=0;
  case Msg of
    wm_create: {Органы управления создаются при создании главного окна}
      begin
           CreateWindow('static',
                   'Введите пароль :',
                   ws_visible or ws_child,
                   20,20,
                   120,20,
                   hwnd,
                   0,
                   hInstance,
                   nil);
           CreateWindowEx(WS_EX_CLIENTEDGE,'edit',
                   '',
                   ws_visible or ws_child or bs_pushbutton or ws_border or ws_tabstop or
                   ws_group or ES_PASSWORD, // Начало первой группы органов управления
                   140,20,
                   150,22,
                   hwnd,
                   1,
                   hInstance,
                   nil);
           CreateWindow('button',
                   'Проверка',
                   ws_visible or ws_child or bs_defpushbutton or ws_tabstop or
                   ws_group , // Начало первой группы органов управления
                   135,55,
                   75,20,
                   hwnd,
                   2,
                   hInstance,
                   nil);
 
      end;
 
    wm_command: // Обработка команд от всех органов управления
       case hiword(wparam) of
         BN_CLICKED:
          case loword(wparam) of
            btnCheck:
              begin
                GetWindowText(GetDlgItem(hwnd,edit),@buffer,16);
                i:=SendDlgItemMessage(hwnd1,4,LB_SELECTSTRING,1,integer(@buffer));
                if (i=LB_ERR) then
                  MessageBox(hwnd,'Введенный пароль отсутствует в списке паролей','Доступ запрещен',MB_Ok or MB_ICONERROR)
                else
                  MessageBox(hwnd,'Введенный пароль верен ','Доступ разрешеен',MB_Ok or MB_ICONINFORMATION);
              end;
          end;
       end;
    wm_close:
      DestroyWindow(hwnd);
    wm_destroy:
      begin // Органы управления уничтожаются автоматически
        dec(CreationCounter);
        if CreationCounter=0 then PostQuitMessage(0);
      end;
    else
      result:=DefDlgProc(hwnd,msg,wparam,lparam);
  end;
end;
 
begin
  WinMain;
end.