Сравнение значений

[vajtek]

Есть проблема в сравнении данных в трех таблицах SpringGrid.

procedure TForm1.Button2Click(Sender: TObject);
var
 i,j: Integer;
  q: Variant;

begin
        for i:=6 to xcol do
        begin
               for j:=1 to kwld do
                if (StringGrid2.Cells[1,j]<=StringGrid1.Cells[7,i]) and (StringGrid2.Cells[2,j]>StringGrid1.Cells[7,i]) then
                  for n:=1 to kmcd do
                    if (StringGrid3.Cells[1,n]<=StringGrid1.Cells[10,i]) and (StringGrid3.Cells[2,n]>StringGrid1.Cells[10,i]) then
                    begin
                      q:=0;
                      with StringGrid4 do
                      begin
                        q:=StrToFloat(StringGrid4.cells[j,n]);
                        q:=q+1;
                        Cells[j,n]:=q;
                      end;
                    end;


        end;
         end;

Есть четыре SpringGrid'a.
SpringGrid1 - так сказать два нужных столбца из которых берем необходимые цифры.
SpringGrid2 - первые параметры с которыми сравниваем, ячейка [1,1]- min, [2,1] min+ шаг, [2,kwld] - max
Значения в ней

445        447,5
447,5      450
450         452,5
452,5      455
455         457,5
457,5       460

SpringGrid3 - вторые параметры с которыми сравниваем

первые параметры с которыми сравниваем, ячейка [1,1]- min, [2,1] min+ шаг, [2,kmcd] - max
Значения в ней

50    60
60    70
70    80
80    90
90    100
100   110
110   120
120   130
130   140
140   150

SpringGrid4 - выводим полученные результаты
В общем по нажатию должно провериться таблица 1 (от 6 до конца) с таблицами 2 и 3 в соответствии с какими значениями совпала должна записаться в соответствующую ячейку таблицы 4, до данного не происходит, таблица пуста.

Подскажите где ошибся

[VadikV]

в сравнениях преобразования типов тоже нужно поставить StrToFloat. а то в таком варианте оно как строки сравнивает

[vajtek]

VadikV, спасибо за помощь