Непонятная ошибка (код срабатывает только один раз)

[Marsel737]

Всем доброго времени суток.

Я сегодня уже пол дня ломаю голову над одной проблемой. Вообщем у меня есть код, компилируется без ошибок и предупреждений. Но во время выполнения кода в одной и той же процедуре на второй и следующие разы вылазит ошибка. Т.е. первый раз код работает как нада, на второй - ошибка.

Вот кусок кода:

procedure TfrmCalories.WriteTable(Sender: TObject);
var
  iIndex: integer;
  Portion: extended;
begin
  iIndex := 0;
  try
    iIndex := (FindComponent('cbProduct' + IntToStr((Sender as TEdit).Tag)) as TComboBox).ItemIndex;
  except
  end;
  Calories := StrToFloat(frmCalEdit.sgCalTable.Cells[1, iIndex + 1]); // Данные берутся из таблицы
  begin
    Portion:= (StrToIntDef((FindComponent('edtPortion' + IntToStr((Sender as TEdit).Tag)) as TEdit).Text, 0 ) / 100);

    (FindComponent('edtCalories' + IntToStr((Sender as TEdit).Tag)) as TEdit).Text := ' ' + FloatToStr(Portion * Calories);
  end;
end;

Интерфейс программы выглядит так:

cbProduct1 edtPortion1 edtCalories1
cbProduct2 edtPortion2 edtCalories2
cbProduct3 edtPortion3 edtCalories3

Когда в комбобоксе (cbProduct1 ) я выбираю какой то пункт, в определённый эдит (edtCalories1) записываются данные, которые зависят от содержимого другого эдита (edtPortion1). И если в первом эдите пусто, то и результат во втором эдите будет нулевой. Поэтому я сделал процедуру, выше представленную, которая перещитывает если ввести данные в первый эдит и нажать на энтр. (Вообщем эта процедура на OnKeyPress помещена).

Ошибка именно в выделенной красным строке, бду очень благодарен если кто нибудь поможет мне эту ошибку исправить.

[Stilet]

 
var c:TComboBox;
begin
 c:=(FindComponent('cbProduct' + IntToStr((Sender as TEdit).Tag)) as TComboBox);
if c<>nil then iIndex := c.ItemIndex;

А вдруг FindComponent не нашел ничего?

[Marsel737]

Stilet, нет не помогло, и ещё поправочка, оказывается код работает только для первой строчки (cbProduct1 edtPortion1 edtCalories1), а для остальных строк - ошибка.

[Stilet]

А текст ошибки привести не судьба?

[Marsel737]

acsess violontation of adress ... read adress 00000 Что-то в этом роде.

С ошибкой только что разобрался, оказывается я, дурья башка, указал Tag только для первого комбобокса, а для остальных нет.