Form1.Query1.Close;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Add('select Fio, Adres, Tel from  Pacient,Personal,Postupl');
   Form1.Query1.SQL.Add('where Personal.Fio=:par and Personal.Kod_vr=Postupl.Kod_vr and Postupl.Kod_pac=Pacient.Kod_pac');
   Form1.Query1.ParamByName('par').AsString:=Form5.edit1.Text;
   Form1.Query1.Active:=true;
   Form5.DBGrid1.DataSource:=Form1.DataSource5;