高手帮忙一下啊，出现了这样的问题啊，头疼啊

系统进行自动编号时出现的问题：is not valid integer value
按钮的事件代码如下
procedure Tfrm_xygdj.BitBtn2Click(Sender: TObject);
var
s,m:string;
n:integer;
begin
s:='';
With data1.ADOpublic do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(bh) as ss From 人事表 ');
    Open;
  end;
If data1.ADOpublic.FieldByName('ss').Value = null then
    s:=s+'001'
  else
  begin
    m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;
    n:= strtoint(copy(m,4,5)) ;
    if n<9 then
      s:= s+'00'+InttoStr(n +1)
    else if n<99 then
      s:=s+'0'+InttoStr(n +1)
    else
      s:=s+InttoStr(n +1);
  end;
  edit1.Text:=s;
end;


高手帮忙解决下，谢谢了