Problemas al usar case

[[David]]

Tengo un case así y me da error , en el >0 y <0 obviamente , como hago para los valores mayores y menores de 0 .

Cómo tendria que hacer este código

Código Delphi [-]
var 
i : integer ;
valor : string;

case i of
0 : valor := ' lo que sea ';
>0 : valor := ' xxx' ;
<0 : valor := 'lo que sea también';
end;