Во-первых, ошибка в коде. А именно,
Код:
for L:=1 to StringGrid1.RowCount do
Когда переменная L получит значение, равное StringGrid1.RowCount, произойдет обращение к несуществующей ячейке. Как вы помните, нумерация начинается с нуля и заканчивается значением StringGrid1.RowCount-1.
Во-вторых, не очень понятно, что конкретно вы желаете получить от своей собственной процедуры и чем не устраивает имеющаяся... Ну создайте процедуру и вставьте этот код в нее. Параметры ей, думаю не нужны, если объект StringGrid1 все время один и тот же.