procedure TForm1.FlatButton4Click(Sender: TObject);
var s1:TStringList;
begin try
s1:=TStringList.Create;
s1.SaveToFile(get_search_list);
freeandnil(s1);
except end;End;