Помогите оптимизировать процедуру

[Cold Went]

ВЫручайте!!!
Как оптимизировать (уменьшить, улучшить) процеду. Надеюсь на помощь. В заранее СПАСИБО!

{===============Считаем сумму ячеек одних StringGrid-ов=========
====================и присваеваем ее ячейкам других StringGrid-ов}
//*********************************** *********************************Fi rst row
bez:=0;
for i:= 1 to 20 do
begin
if not(Length(StringGrid2.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid2.Cells[1,i]);//Считываем ячейку
StringGrid1.Cells[1,1]:= FloatToStr (bez / 20);//Выводим сумму в ячейке
end;
end;
bez:=0;
for i:= 1 to 20 do
begin
if not(Length(StringGrid4.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid4.Cells[1,i]);
StringGrid3.Cells[1,1]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 1 to 20 do
begin
if not(Length(StringGrid6.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid6.Cells[1,i]);
StringGrid5.Cells[1,1]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 1 to 20 do
begin
if not(Length(StringGrid8.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid8.Cells[1,i]);
StringGrid7.Cells[1,1]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 1 to 20 do
begin
if not(Length(StringGrid10.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid10.Cells[1,i]);
StringGrid9.Cells[1,1]:= FloatToStr (bez / 20);
end;
end;

//*********************************** ****************************** Second row
bez:=0;
for i:= 21 to 40 do
begin
if not(Length(StringGrid2.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid2.Cells[1,i]);
StringGrid1.Cells[1,2]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 21 to 40 do
begin
if not(Length(StringGrid4.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid4.Cells[1,i]);
StringGrid3.Cells[1,2]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 21 to 40 do
begin
if not(Length(StringGrid6.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid6.Cells[1,i]);
StringGrid5.Cells[1,2]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 21 to 40 do
begin
if not(Length(StringGrid8.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid8.Cells[1,i]);
StringGrid7.Cells[1,2]:= FloatToStr (bez / 20);
end;
end;
bez:=0;
for i:= 21 to 40 do
begin
if not(Length(StringGrid10.Cells[1,i]) = 0) then //Если ячейка не пуста
begin
bez:=bez + StrToFloat (StringGrid10.Cells[1,i]);
StringGrid9.Cells[1,2]:= FloatToStr (bez / 20);
end;
end;
//*********************************** ****************************** Third row
...

[alexBlack]

Оформить процедурой:

Что-то вида:
procedure summ(DestCol, DestRow, R1, R2:integer; SG1, SG2:TStringGrid)
...

DestCol, DestRow - координаты ячейки назначения
R1, R2 - диапазон ячеек
SG1, SG2 - StringGrid'ы

Потом просто вызывать

summ(1,1, 1,20, StringGrid1, StringGrid2);
...

[Cold Went]

Спасибо, немогли бы если Вам не трудно по подробнее расписать процедуру

[alexBlack]

А что расписывать. Берем любой кусок кода (по-моему они у вас все одинаковые) и делаем изменяемые значения параметрами процедуры:

procedure summ(DC, DR, R1, R2:integer; SG1, SG2:TStringGrid)
begin
   bez:=0;
   for i:= R1 to R2 do begin
       if not(Length(SG2.Cells[1,i]) = 0) then //Если ячейка не пуста
       begin
           bez:=bez + StrToFloat (SG2.Cells[1,i]);//Считываем ячейку
       end;
   end;
   // Лучше вынести за цикл
   SG1.Cells[DC,DR]:= FloatToStr (bez / 20);//Выводим сумму в ячейке

Весь код можно заменить парой-тройкой циклов если обращаться к StringGrid по их именам:

'StringGrid'+intToStr(k)

поищите на форуме по слову FindComponent

[Cold Went]

Благодарствую. Я не совсем Вас в начале понял. Я нашел некоторые комментарии по 'FindComponent' и вот что получилось.
сдесь описываем Function SumSG
function Sumsg(SG:TStringGrid; Col, Row, Count: integer):string;
var
bez: dooble;
i: integer;
begin
bez:=0;
for i:=0 to Count-1 do
if not(Length(SG.Cells[Col,Row+i]) = 0) then
bez:=bez + StrToFloat (SG.Cells[Col,Row+i]);
Result:=FloatToStr(bez / Count);
end;
.....
for i:= 1 to 5 do
for j:= 0 to k-1 do
TStringGrid (FindComponent('StringGrid'+IntToSt r (i*2-1)).Cells[1,j+1]:=
SumSG(TStringGrid (FindComponent( 'StringGrid'+IntToStr(i*2)), 1, 20*j+1, 20);