Вдогонку: порядковый номер-то я в StringGrid засунул, а вот записывать его - забыл.
Добавь между
begin
if sg.RowCount<Ind+1 then
sg.RowCount:=Ind+1;
sg.Cells[Sum,Ind]:=Copy(s,1,Pos(' ',s)-1);//Данные
Delete(s,1,Pos(' ',s));//Удаляем данные
end;
и
sg.Cells[6,Ind]:=s;
end;
строку
sg.Cells[0,Ind]:=IntToStr(Ind);
Т.е., этот кусок будет так:
begin
if sg.RowCount<Ind+1 then
sg.RowCount:=Ind+1;
sg.Cells[Sum,Ind]:=Copy(s,1,Pos(' ',s)-1);//Данные
Delete(s,1,Pos(' ',s));//Удаляем данные
end;
sg.Cells[0,Ind]:=IntToStr(Ind);
sg.Cells[6,Ind]:=s;
end;