两个for,头也搞大了解决办法

两个for,头也搞大了

如图,当我点击表格第10列时,想取得第二列对应的拼音,可以取得拼音,但每次都递增,语法在哪出错了,望指教呀
procedure TF_jhthd.StringGrid1Click(Sender: TObject);
var 
  hz:string;
i:integer;
begin
  inherited;
  pyjm:='';
  for xh:=1 to StringGrid1.RowCount do
  For i:=1 to length(Trim(StringGrid1.Cells[2,xh])) div 2 do begin
  hz:=copy(Trim(StringGrid1.Cells[2,xh]),i*2-1,5);
pyjm:=pyjm+F_zct.getpy(hz);
  StringGrid1.Cells[10,xh]:=pyjm;
  end;
  end;

红色为取第二列拼音代码,能取到

[解决办法]
不对，上面我说的不对，不好意思，请参考以下代码：
[code=Delphi(Pascal)][/code]
procedure TF_jhthd.StringGrid1Click(Sender: TObject); 
var
hz:string; 
i:integer; 
begin 
inherited;
for xh:=1 to StringGrid1.RowCount do
begin
pyjm:= ' '; 
For i:=1 to length(Trim(StringGrid1.Cells[2,xh])) div 2 do 
begin 
hz:=copy(Trim(StringGrid1.Cells[2,xh]),i*2-1,5); 
pyjm:=pyjm+F_zct.getpy(hz);
end; 
StringGrid1.Cells[10,xh]:=pyjm;
end;
end;