procedure TForm1.Timer1Timer(Sender: TObject);
const
x1=20;
y1=20;
x2=664;
y2=442;
begin
canvas.rectangle(x1,y1,x2,y2);
Canvas.Brush.Color :=
       (clblack);
canvas.Rectangle(332,221,322,211);
canvas.FloodFill(x1-1,y1-1,clblack,fsborder);
canvas.pen.color:= (clred);
canvas.moveto(322,211);
canvas.lineto(322,191);
canvas.moveto(322,211);
timer1.enabled:=false;


timer1.enabled:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
pi=3.14;
var
x1,y1:integer;
a1,a2:real;
x11,x12,y12,y11,x13,y13:real;
begin

canvas.moveto(322,211);
canvas.pen.color:= (clblack);
x1:=(strtoint(edit1.text));
y1:=(strtoint(edit2.text));
canvas.rectangle(x1,y1,x1-10,y1-10);
x11:=x1;
y11:=y1;
x12:=x11-10;
y12:=y11-10;
canvas.lineto(round(x12),round(y12));

end;