aq1->SQL->Add("UPDATE STUDENT SET foto=:t4 WHERE Familia=:t AND Imia=:t1 AND Otchestvo=:t2 AND birthday=:t3");
   try
     {
        aq1->Parameters->Items[ 0 ]->Value=(dg1->Fields[ 0 ]->AsString);
        aq1->Parameters->Items[ 1 ]->Value=(dg1->Fields[ 1 ]->AsString);
        aq1->Parameters->Items[ 2 ]->Value=(dg1->Fields[ 2 ]->AsString);
        aq1->Parameters->Items[ 3 ]->Value=(dg1->Fields[ 3 ]->AsString);
        aq1->Parameters->Items[ 4 ]->LoadFromFile("C:\\Snap3.jpg",ftBlob);

     }
     catch(...)
     {
       MessageBox(f54->Handle,"Çíà÷åíèÿ íå ââåäåíû èëè ââåäåíû íå êîððåêòíî !","Îøèáêà çàïèñè",MB_OK);
       return;
     }
     try
     {
       aq1->ExecSQL();
       aq1->Close();
     }
     catch(...)
     {
       MessageBox(f54->Handle,"Image !Íå óäàëîñü ñîõðàíèòü äàííûå ïî íåèçâåñòíîé ïðè÷èíå !","Îøèáêà çàïèñè",MB_OK);

     }