[fofka]

Доброго вечера всем.
Пытаюсь из Excel загрузить данные в StringGrid. Загружаю так

       for i := 1 to 35 do
    begin
    StringGrid1.Cells[1,i]:= Sheet1.Range['B' + IntToStr(i+4)];

В принципе все работает, но грузятся знаки после запятой, которые в Экселе не отображаются.

Пробую обрезать знаки после запятой

StringGrid1.Cells[2,i]:= Format('%10.1f', [StrToFloat(Sheet1.Range['C' + IntToStr(i+4)])]);

в данном примере остается один знак.
Все работает прекрасно, но, до первой пустой ячейки Эксель (такое в документе допускается). Подскажите как обойти данную проблему.