;                   260

上述各组件的许多属性，读者亦可根据个人的爱好设定。在主单元Main.pas的implementation段声明常量和变量：

const

sSide=30;
dSide=45;

var
msHide: Boolean;
OldX, OldY, NewX, NewY: Integer;
DestRect, SourceRect : TRect;

其中，常量sSide和dSide用以控制“放大镜”的大小和放大倍数;变量msHide控制光标（鼠标）的隐藏和打开;其它变量用以确定放大部位。

建立主窗体MainForm的OnCreate事件，加入下列语句，以初始化变量及设置复制模式：
msHide:=True;
Canvas.CopyMode:=cmSrcCopy;