Почему выдает «Неверное число процедуры»???

Почему выдает "Неверное число процедуры"???
нет не пугайтесь это форма
просто интересно что здесь не так...
Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
Form1 = class(Form)
procedure Form1_Load(sender: Object; e: EventArgs);
procedure button1_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
textBox1: TextBox;
label1: &Label;
button1: Button;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;

implementation

procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin

end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

Var slovo :string; q :integer;
memory :textfile;
begin
slovo:= (textBox1.Text) ;
assign (memory,'_memory_.txt');
append (memory);
begin
close(memory) ;
end;
end;
end.

  • ПОтому что непонятные действия, begin-end непонятный в процедуре
  • метод close() воспринимается не как метд закрытия файла, а как метод закрытия формы.
    попробуй вместо close(memory) < => close() ;|

    ;)