i1->Canvas->Pen->Color=clWhite;
   i1->Canvas->Brush->Color=clWhite;
   i1->Canvas->Rectangle( 0 , 0 ,i1->Width,i1->Height);
   int End= 0 ;
   int First= 0 ;
   //int NR=1;
   int NP= 1 ;
   TDrawDigit  NewMest;
   vector<TPoint> P;
   TStringList * St=new TStringList();
   St->Add("SELECT MAX(Номер_породы),MIN(Номер_породы) FROM razr WHERE №_разреза= "+AnsiString(NR));
   aq1->SQL=St;

   try
   {
     aq1->Open();

   }
   catch(...)
   {
     MessageBox(f4->Handle,"Не удалось получить данные от базы даннх !","Ошибка чтения",MB_OK);
     return;
   }
   try
   {
     End=aq1->Fields->Fields[ 0 ]->AsInteger  ;
     First=aq1->Fields->Fields[ 1 ]->AsInteger ;
   }
   catch(...)
   {
       MessageBox(f4->Handle,"Не удалось обработать данные !","Ошибка чтения",MB_OK);
       return;
   }
   aq1->Close();
   St->Clear();
   int Priznak= 0 ;
   for(int NP=First;NP<=End;NP++)
   {
     //P.clear();
     St->Clear();
     St->Add("SELECT Координата_X,Координата_Y,Признак_породы FROM razr WHERE №_разреза="+AnsiString(NR)+
     " AND Номер_породы="+AnsiString(NP));
     aq1->SQL=St;
     try
     {
       aq1->Open();
     }
     catch(...)
     {
       MessageBox(f4->Handle,"Не удалось получить данные от базы даннх !","Ошибка чтения",MB_OK);
       return;
     }
     St->Clear();
     TPoint XY;

     for(aq1->First();!aq1->Eof;aq1->Next())
     {
       try
       {
         XY.x=aq1->Fields->Fields[ 0 ]->AsInteger;
         XY.y=aq1->Fields->Fields[ 1 ]->AsInteger;
         Priznak=aq1->Fields->Fields[ 2 ]->AsInteger;
       }
       catch(...)
       {
         MessageBox(f4->Handle,"Не удалось обработать данные !","Ошибка чтения",MB_OK);
         return;
       }
       P.push_back(XY);
      
     }
     if(P.size()== 0 ){continue;}

     TSCover  Cov;
     TPoint * Res = new TPoint[P.size()];
     for(int f= 0 ;f<=P.size()- 1 ;f++)
     {
       Res[f].x=P[f].x;
       Res[f].y=P[f].y;
     }

     Res=Cov.giftwrapHull(Res,P.size());
     for(int f= 0 ;f<=P.size()- 1 ;f++)
     {
       P[f].x=Res[f].x;
       P[f].y=Res[f].y;
     }
     //delete [] OKY;

     //delete [] Res;
     // delete Cov;
   // P.clear();
    NewMest.SetKof(i1->Width/W,i1->Height/H);
    NewMest.DrawFigure(i1->Canvas,P,Priznak,i1->Height );

    P.clear();

   }

    aq1->Close();
    aq1->SQL->Clear();
    aq1->SQL->Add(AnsiString("SELECT DISTINCT Признак_породы FROM razr WHERE №_разреза= ")+AnsiString(IntToStr(NR)));


     try
     {
       aq1->Open();
     }
     catch(...)
     {
       MessageBox(f4->Handle,"Не удалось получить данные от базы даннх !","Ошибка чтения",MB_OK);
       return;
     }
     int YH= 0 ;
     for(aq1->First();!aq1->Eof;aq1->Next())
     {
       try
       {

          NewMest.WriteCube(aq1->Fields->Fields[ 0 ]->AsInteger,i1->Canvas,YH);
          YH+= 20 ;
       }
       catch(...)
       {
         MessageBox(f4->Handle,"Не удалось обработать данные !","Ошибка чтения",MB_OK);
         return;
       }
     }
     //aq1->SQL->Clear();
     aq1->Close();
     //delete NewMest;
     delete St;

   NewMest.SetKof(i1->Width/W,i1->Height/H);
    NewMest.DrawFigure(i1->Canvas,P,Priznak,i1->Height );

    P.clear();

   }

    aq1->Close();
    aq1->SQL->Clear();//После вызова этой строки вначале вызвался деструктор класса --
 -- Vector ??? Почему ??? Потом деструктор моего класса DrawDigit и после этого вылазит Invalid Pointer Operation - Я вобщем просто эт строку убрал и все !! Но почему происходят такие странные действия то ???