为什么会出错，该怎样纠正？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls,Buttons;type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    Button5: TButton;
    Button6: TButton;
    procedure ChangeFormSize;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    bWinstat:array[1..4] of Boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  ChangeFormSize;
  bWinstat[1]:=True;
  bWinstat[2]:=True;
  bWinstat[3]:=True;
  bWinstat[4]:=True;
  StatusBar1.SizeGrip :=False;
end;
procedure ChangeFormSize;
var
  MemoDC:HDC;
  SaveFont:HFont;
  Size:TSize;
begin
  MemoDC:=GetDC(Memo1.Handle);    <51行>
end;  
end.
出错信息提示：
[Error] Unit1.pas(51): Undeclared identifier: 'Memo1'
[Error] Unit1.pas(51): 'END' expected but ')' found
[Error] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.ChangeFormSize'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
为什么会出错，该怎样纠正？

Answer 1

procedure ChangeFormSize;
改为
procedure TForm1.ChangeFormSize;

Answer 2

procedure TForm1.ChangeFormSize;
var
  MemoDC:HDC;
  SaveFont:HFont;
  Size:TSize;
begin
  MemoDC:=GetDC(Memo1.Handle);    <51行>
end;