procedure TForm2.SearchandHighlight1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
form7:= TForm7.Create(self);
form7.ShowModal;
form7.Free;
form7:=nil;
except end;End;