type
  RW_CheckPoint = Record
                    till : function : Boolean;
                    color,tolerance : Integer;
                  end;

function RW_noop : Boolean;
begin
  Result := false;
end;
function RW_Point(c,t : Integer; WalkUntil : function : Boolean) : RW_CheckPoint;
begin
     with Result do
     begin
        color := c;
        t := tolerance;
        till := WalkUntil;
      end;
end;