зАпутался с stringrid-ом

[denl9]

Доброго времени суток, помогите пожалуйсто разобратся..
у меня есть заполненный stringrid и вводимые пользователем 4 поля edit. в стрингриде четыре столбца. нужно подсчитать каждую строку стрингрида и вывести в другой стрингрид с результатом таким образом:
1 ячейка*едит1+2ячейка*едит2+ и тд. и результат вывести в стрингрид 2
потом вторая срока также само...

[BDA]

Вот пример.

[denl9]

а как поставить так что бы считовать начало не без учета шапки. т.е. первую колонку и первую строчку (заголовки) не считает, а все остальное считает, вот пример но что-то не получается(((

procedure TForm1.Button5Click(Sender: TObject);
var
  i: integer;
begin
  stringgrid2.RowCount := stringgrid1.rowcount;
  for i := 1 to stringgrid1.rowcount - 1 do
    stringgrid2.Cells[1, i] := inttostr(
      strtoint(stringgrid1.Cells[1, i]) * strtoint(edit20.Text) +
      strtoint(stringgrid1.Cells[2, i]) * strtoint(edit21.Text) +
      strtoint(stringgrid1.Cells[3, i]) * strtoint(edit22.Text) +
      strtoint(stringgrid1.Cells[4, i]) * strtoint(edit23.Text));

end;

[BDA]

Вот пример.

[denl9]

Извеняюсь за свою тупость((( не могли б вы еще мне подсказать как сделать в этом примере так чтоб в стрингриде если есть пустые строки то их не считывало, а считывало только те в которых есть числа?? а из стрингрида 2 (результат) выбрало максимальное и записало в лебел?

[BDA]

Вот пример

[denl9]

Спасибки огромные!!! еще один, надеюсь последний вопрос,=(((((((((((
те 4 поля едита (в них вводится дробное число от 0 до 1) // вообщем в сумме этих эдитов толжна получатся еденица и небольше и не меньше
например едит1=0,5 едит2=0,2 едит3=0,1 едит4=0,2
как это зделать подсажи пожалуйсто???

[BDA]

Хахаха)
Вот пример.

[denl9]

а не подскажете еще как зделать чтоб выводилось в лабел вместе с максимальным значением название строки, напр: монитор lg ----1290,99

[BDA]

Вот пример.