case of + сравнение чисел Опции

[compiler]

Добрый день!
как можно(если можна) сравнить 2 числа с помощью case of.
заранее благодарен.

[volvo]

Можно:

var a, b: double;
begin
  a := 23.2; b := 23.4;
  case byte((a - b) > 0) of
     0:
     case byte((a - b) < 0) of
       1: writeln('a < b');
       0: writeln('a = b');
     end;


     1: writeln('a > b');
  end;
end.

Только зачем?