void Vaistine::Rasti(char *p, char *f, int m)
{
   for (int i=1; i<m; i++) {
      if ((strstr(E[i].pav, p) != NULL) && (strstr(E[i].forma, f) != NULL)) {
         Form1->Isvesti(E[i].pav, E[i].forma, E[i].kiekis, E[i].kaina);
      }
     else Form1->Isvesti("nu", "k1", 5, 2);
   }
}