[[oscarac]]

prueba haciendo esto

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,c:integer;
var s:string;
begin
 begin
   s:=Tspinedit(sender).text;
   val(s,i,c);
   if c <> 0 then
   begin
     Tspinedit(sender).value:=Tspinedit(sender).tag;
     beep;
   end
   else
     Tspinedit(sender).tag:=i;
 end;
end;