procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin try
url_.free;
ref_.free;
except end;End;