K>function GetValue(valindex:integer):integer;
K>  begin
K>    result := value[valueindex];
K>    if result=-1 then exit[1];
K>  end;

K>begin
K>result:=false;
K>for i := 0 to count-1 do 
K>  begin
K>    newvalue[i] := getvalue(i);
K>  end;
K>result:=true;
K>