for(aux=1;aux<=nfilas;aux++)
{
valor = StrToFloat(StringGrid1->Cells[colrec][aux];
for(aux1=0;aux1<=nfilas2;aux1++)
{
min = StrToFloat(Form3->StringGrid1->Cells[0][aux1];
max = StrToFloat(Form3->StringGrid1->Cells[1][aux1];
nuval = (Form3->StringGrid1->Cells[2][aux1];
ShowMessage("valor: "+AnsiString(valor));
if ((min <= vlaor) || (valor<=max))
{
StringGrid1->Cells[ncolum][aux] = nuval;
ShowMessage("min: "+AnsiString(min));
ShowMessage("max: "+AnsiString(max));
ShowMessage("nuval: "+AnsiString(nuval));
}
}
}