Form1.Query4.Close;
   Form1.Query4.SQL.Clear;
   Form1.Query4.SQL.Add('select Fio_sotr, add_sotr, Tel, Doljn FROM sotr AS s, protocol AS p');
   Form1.Query4.SQL.Add('where s.Kod_sotr = p.Kod_sotr AND p.N_protocol = :N');
   Form1.Query4.ParamByName('N').AsString:=Form5.edit1.Text;
   Form1.Query4.Open;
   Form5.DBGrid1.DataSource:=Form1.DataSource10;