Добрый день! Подскажите пожалуйста, как данные из одного StringGrid перенести во второй! Delphi!

При условии, что если, например, в ячейке число 5, то во второй оно должно попасть как 5-5*0.4!
вот мой отрывок, но он не работает
for i := 0 to StringGrid1.RowCount-1 do
for j := 0 to StringGrid1.ColCount-1 do begin

StringGrid2.Cells[i,j] := StrToFloat(StringGrid1.Cells[i,j])-StrToFloat(StringGrid1.Cells[i,j])*0.4;

Вот где его не хватает???