Procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure edt1Change(Sender: TObject);

procedure img1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure btn5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

procedure btn7Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure img1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1 : TForm1;

X1,y1,

X2,y2,

fat : integer;

mb : char;

Flag,

front : integer;

fname : string;

Backp,

Nextp,

Fopen,

fsave : boolean;

Implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

Begin

fsave := true;

img1.Canvas.FillRect(img1.Canvas.ClipRect);

img2.Canvas.FillRect(img2.Canvas.ClipRect);

img3.Canvas.FillRect(img3.Canvas.ClipRect);

end;

procedure TForm1.N2Click(Sender: TObject);

Begin

img1.AutoSize := true;

fopen := true;

dlgOPic1.Execute;

img1.Picture.LoadFromFile(dlgOPic1.FileName);

fname := dlgOPic1.FileName;

img1.AutoSize := false;

end;

procedure TForm1.ud1Click(Sender: TObject; Button: TUDBtnType);

Begin