整理

i:= SG1.ColCount-1; k0:= 0; k1:= 0;
while i>=0 do
{
    if (SG1.Cell[i,0]='')and(SG1.Cell[i,2]='') then inc(k0) else
    {
        if (SG1.Cell[i,0]<>'') then {SG2.Cell[i,0]:=inttostr(k0+1);
        if (SG1.Cell[i,2]<>'') then {SG2.Cell[i,2]:=inttostr(k0+1);
        k0:= 0;
    }
    if (SG1.Cell[i,4]='') then inc(k1) else
    {
        if (SG1.Cell[i,4]<>'') then SG2.Cell[i,4]:=inttostr(k1+1);
        k1:= 0;
    }
    dec(i);
}