[ник12331]

так??? подскажите как верно?

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k:integer;
begin
  j:=0; i:=1;   k:=2;
 //for i:=1 to 4 do
 for j:=5 to 10 do      begin
 if  (strtoint(stringgrid2.Cells[i,k])>=strtoint(stringgrid1.Cells[i,j])) and
    (strtoint(stringgrid2.Cells[i,k])<=strtoint(stringgrid1.Cells[i,j+1]))
  then begin k:=k+1;    end;       end;

  memo1.Lines.add(StringGrid1.Cells[0, i]+StringGrid2.Cells[0, i]);
  end;


end.

lmikle: пользуемся тегами для оформления кода, иначе последуют санкции.