int i,j,col,row;    UnicodeString strSQL;    strSQL = " select * from viewBasicLensProblem";    adoquery->Close();    adoquery->SQL->Clear();    adoquery->SQL->Add(strSQL);    adoquery->Open();    col = qryBasic->FieldCount;    row = qryBasic->RecordCount;    strGrid1->ColCount = col;    strGrid1->RowCount = row+1;    for (i =1; i < row+1; i++)    {        for ( j =0; j< col; j++)        {            strGrid1->Cells[j][i] = qryBasic->Fields->Fields[j]->AsString;        }        qryBasic->Next();    }