实现一算法，看谁能做得出。给出两点的坐标，画长方形，其中两点成线为长方形的长，宽可以是定值（如20）。

以下是画两点成直线的程序代码：
procedure TForm1.Button1Click(Sender: TObject);
var
  O:TPoint;
  x1,x2,y1,y2,L1,L2:integer;
begin
  O:=Point(Self.Width,self.Height);
  x1 :=strtoint(edtx1.Text);  //edtx1是一个EDIT控件
  y1 :=strtoint(edty1.Text);  //edtx2是一个EDIT控件
  x2 :=strtoint(edtx2.Text);  //edty1是一个EDIT控件
  y2 :=strtoint(edty2.Text);  //edty2是一个EDIT控件
  self.Canvas.MoveTo(x1,y1);
  self.Canvas.LineTo(x2,y2);
end;