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

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 TForm1.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 TForm1.ChangeFormSize;
var
  MemoDC:HDC;
  SaveFont:HFont;
  Size:TSize;
begin
  MemoDC:=GetDC(Memo1.Handle);    <51行>
end;  
end.
出错信息提示： Expected '=' but ';' found为什么会出错，该怎样纠正？

Answer 1

MemoDC:=GetDC(Memo1.Handle);    <51行><51行>是什么意思？？