Почему возникает ошибка? - BEGIN expected but END found

[Женя32]

Подскажите пожалуйста, что в коде ни так, почему возникает ошибка?:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetWindowText(Wnd: HWnd; Str: PChar; MaxCount: Integer): Integer;

  function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!! 
Var
  Nm:Array[0..255] of Char;  // буфер для имени
  Cs: Array[0..255] of Char; // буфер для класса
Begin
    GetWindowText(Wd,Nm,255); // считываем  текст заголовка окна
    GetClassName(Wd,Cs,255); // считываем название класса окна
    Form1.ListBox1.Items.Add(String(Nm)+'/'+String(Cs)); // Добавляем название окна и класс в список
    EnumProc := TRUE;  // продолжать искать окна…
end;
end.

[Error] Unit1.pas(37): BEGIN expected but END found
[Error] Unit1.pas(41): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Аватар]

Потому что код скопипастен да не правильно

[ZX Spectrum-128]

GetWindowText болтается непонятно как.
А, Аватар уже пояснил

[Женя32]

Сообщение от Аватар

Потому что код скопипастен да не правильно

А где и что в коде исправить?

[Аватар]

А там кода нет, только ошметья от него