在TEDIT1输入“00001”，在tedit2中就显示“00002”
在TEDIT1输入“0000001”，在tedit2中就显示“0000002”
在TEDIT1输入“00000001”，在tedit2中就显示“00000002”
用delphi语言如何实现？
format('%.8d', [strtointdef(TEDIT1.Text, 0) + 1]) 这个语句只能够实现定位8位的，而不能实现随着TEDIT1.Text的宽度变化而变化

tedit2：=StringOfChar('0',LengTh(tedit2)-LengTh( IntToStr(strtointdef(tedit1, 0) + 1))+ IntToStr(strtointdef(tedit1, 0) +1);
我在网上找到的这个方法，提示错误

这么简单的问题也来问?
if (copy(Edit1.text,length(Edit1.text),1)=='1') then Edit2.text := copy(Edit1.text,1,length(Edit1.text)-1) + '2';