Launcher.dpr(79): '(' expected but ',' found - C++ WinAPI - Ответ 2891731

program Launcher;
{$R 'Launcher.res' 'Launcher.rc'}     //В ресурсе лежит иконка и свойства программы
uses
  Windows,
  Messages,
  SysUtils, // для извлечения ключей запуска (в том числе и определения пути запуска приложения)
  IniFiles; // для работы с ini файлами
const
  ClientWidth = 450;              //ширина нашей формы
  ClientHeight = 400;             //высота главной формы
  y=10;                           // начальное положение элементов окна по оси y
  WndClass = 'TWinApiLanch';       //имя класса приложения (оно будет использоваться системой)
  WndCaption = 'XCV Launcher';    //Заголовок формы
 
 
var
  Wc: TWndClassEx;                //класс окна
  Wnd: HWND;                      //Дескриптор нашей формы
  Buttons: array[0..10] of HWND;  //Дескрипторы кнопок
  IniFile : TIniFile;
  Font1 : HFONT;            // Шрифт
  i : Integer;              // счетчик кнопок
procedure runproject;     // действие по нажатию кнопки
begin
IniFile := TIniFile.Create(extractfilepath(paramstr(0))+'tools\param.ini');
windows.WinExec(PAnsiChar(extractfilepath(paramstr(0))+'tools\'+IniFile.ReadString('prog5','bt1','Неверный файл настройки')),windows.SW_NORMAL);
end;
//Функция обрабатывающая сообщения
function WindowProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall;
begin
   //Msg - полученное сообщение
   case Msg of
      //Если програма хочет закрыться
      WM_DESTROY: begin
                  PostQuitMessage( 0 );  //Закрываем её
                  Result := 0;
                  Exit;  //дальнеёшие сообщения обрабатывать нету смысла - мы закрываемся
                  end;
      WM_COMMAND: // WM_COMMAND посылается при нажатии кнопок
         case LoWord( wParam ) of
         //Обрабатываем нажатия кнопок
 
          101: runproject; // действие по кнопке
 
         end;
   else
         Result := DefWindowProc( Wnd, Msg, wParam, lParam ); // DefWindowProc обеспечивает обработку тех сообщений окна, которые не обрабатывает прикладная программа.
   end;
end;
 
BEGIN
// Заполняем структуру TWndClassEx
   with Wc do
   begin
   cbSize := SizeOf( Wc );
   lpfnWndProc := @WindowProc; //указатель на оконную процедуру
   cbClsExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
   cbWndExtra := 0; //Выделенная память, используемая программой по своему усмотрению.
   hInstance := hInstance; //описатель экземпляра приложения
   hIcon := LoadIcon(Wnd,'MAINICON'); //иконка приложения
   hbrBackground := COLOR_BTNFACE+1; //цвет фона формы. Константы цветов можно посмотреть в описании функции GETSYSCOLOR
   lpszClassName := WndClass; //имя класса создаваемого объекта
   end;
// Регистрируем класс в системе
   RegisterClassEx( Wc );
//Создаём окно
  Wnd := CreateWindowEx ( 0, WndClass, WndCaption, WS_SYSMENU or WS_MINIMIZEBOX, 200, 200, ClientWidth, ClientHeight, 0, 0, hInstance, nil);
// Показываем окно программы
  ShowWindow( Wnd, SW_SHOWNORMAL );
// Создаём элементы окна
  Font1 := GetStockObject( ANSI_VAR_FONT  ); //шрифт кнопок
  IniFile := TIniFile.Create(extractfilepath(paramstr(0))+'tools\param.ini');
  For i:=0 to 20 do
begin
   Buttons[i] := CreateWindowEx( WS_EX_STATICEDGE, 'Button', PAnsiChar(IniFile.ReadString('prog'+IntToStr(i),'name','Неверный файл настройки')), BS_DEFPUSHBUTTON or WS_VISIBLE or WS_CHILD, 10, y+i*10, ClientWidth-30, 20, Wnd, 100+i, hInstance, nil );
   SendMessage( Buttons[i], WM_SETFONT, Font1, 0 ); //Изменяем шрифт всех кнопок
end;
// Цикл обработки сообщений
 while GetMessage (Msg,0,0,0) do
  begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
  end;
// Halt( Msg.wParam );
END.