constructor TWall.create (ix, iy, iw, ih : Integer; cf : Real; ilink : Twall); begin x := ix; y := iy; height := ih; width := iw; convertFactor := cf; link := ilink; end;