{
Check if refresh needed.
}
function ShouldRefresh(var upd:Real; val:Real):Integer;
begin
 ShouldRefresh:=0;
 if upd<>val then begin
  ShouldRefresh:=1;
  upd:=val;
 end;
end;
