字符串截取?(30分)

一个字符串长度是4的倍数，“字符串长度不定”，如000011112222，我想用循环
从前往后取，每4位取出，存入一文本框. 上例在文本框中为:0000/1111/2222

procedure TForm1.Button1Click(Sender: TObject);
var
i,l:integer;
my_txt:string;
temp_txt:string;
str:string;
begin
str:='000011112222';
l:=length(str) div 4;
for i:=0 to l-1 do
begin
temp_txt:=copy(str,i*4+1,4);
if i=0 then
my_txt:=temp_txt
else
my_txt:=my_txt+'/'+temp_txt;
end;
Edit1.Text:=my_txt;
end;

接受答案了.