[icWasya]

Код:

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