Fórum Preciso fechar a janela depois de utilizar o TDDEClientConv #332419

Estou com dificuldade em conseguir fechar a janela do browser, alguem tem alguma idéia de como posso resolver?:

Segue função que encontrei para pegar a url e o título da janela corrente, mas para fechá-la não estou conseguindo.


procedure TForm1.Button5Click(Sender: TObject);
procedure GetFireFoxCurrentURL (var URL, Title : string);
var
DDEClient : TDDEClientConv;
s : string;
begin
s := ´´;
DDEClient := TDDEClientConv.Create(self);
try
try
with DDEClient do
begin
if SetLink(´Firefox´,´WWW_GetWindowInfo´) then
s := RequestData(´0xFFFFFFFF,sURL,sTitle´);
end;
if s <> ´´ then
begin
delete(s,1,1);
URL := copy(s,1,pos(´´,´´,s)-1);
delete(s,1,pos(´´,´´,s)+2);
Title := copy(s,1,pos(´´´,s) - 1);
end;
exit;
except
raise exception.Create(´Error obteniendo la URL...´);
end;
finally
DDEClient.Free;
end;
end;

var
URL : string;
Title : string;
begin
GetFireFoxCurrentURL (URL, Title);
Edit6.Text:=Title;
Edit7.Text:=URL;
end;