1 var2 s:string;3 i:integer;4 begin5 s:='abcdefg12345';6 for i:=1 to length(s) do7 showmessage(StuffString(s,i,1,''));8 end;