关于使用rightstr的小问题(50分)

各位高手，小弟我今日遇到如下问题，麻烦各位提点一二，谢谢。
。。。。。。。
procedure TFmUsrMan.FormCreate(Sender: TObject);
//var
begin
with TbUser do//这是用户数据表
begin
if RecordCount=0 then//记录为零
begin
EdUsrNo.text:='000001';
end
else
begin
if RecordCount<MAX then//MAX我定义为99999
begin
First;
while not EOF do
begin
Next;
end;
EdUsrNo.text:=rightstr(('00000'+Format('%d',[TbUser.FieldByName('用户编号').AsInteger+1])),6);//此处有错误，系统说未定义标志符'rightstr'
end
else
begin
MessageDlg('尊敬的用户,您需要升级本软件以容纳更多的用户',mtConfirmation,[mbOk],0);
end;
end;
end;
end;
。。。。。。。。。。。。。。。
我查看了帮助，上面说出现这种现象的根源在于标志符拼写错误。之前因为我考虑到rightstr
是系统函数，所以我没有定义。但是我试着定义后，好象没有什么作用，这是为什么呢？

在uses部分加入StrUtils看看。

直接用formatfloat（‘000000’，TbUser.FieldByName('用户编号').AsInteger+1])),

谢谢两为位的提点。