[Thrasher]

Попробуй применять обработку исключений.

Код:

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
I : integer;
begin
  try
    I := SpinEdit1.Value; // Попытка присвоить значение
  except
    I:=0; // Если возникло исключение, то приравнять I нулю
  end;
end;