procedure TForm2.CloseWikiBrowse1Click(Sender: TObject);
begin
try
if Sender<>nil then play_snd(1);
Close;
except end;End;