[[Héctor Randolph]]

La sentencia case también acepta rangos.

Prueba de esta forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  I:=1000;
  case I of
   0: ShowMessage('Cero');
   1..High(Integer): ShowMessage('Mayor a cero');
   else ShowMessage('Menor a cero');
  end;
end;

Saludos