Form1.Query4.Close;
   Form1.Query4.SQL.Clear;
   Form1.Query4.SQL.Add('select Fio_sotr, s.Doljn from sotr AS s, protocol AS p');
   Form1.Query4.SQL.Add('where s.Kod_sotr = p.Kod_sotr and p.Date_vidachi=:D ');
   Form1.Query4.SQL.Add('Group by Fio_sotr');
   Form1.Query4.ParamByName('D').Value:=Form5.Edit1.Text;
   Form1.Query4.Open;
   Form5.DBGrid1.DataSource:=Form1.DataSource5;