edit1.Text:=leftstr(label1.Caption,16);//从左开始取16位
edit1.Text:=rightstr(label1.Caption,12);//从右开始12位