Fórum ShellListView Delphi 7 #513986

Desde já agradeço a todos que me deem atenção nesta minha questão...

Bom tenho um objeto ShellListView1 delphi 7 que exibirá para o usuário uma pasta contendo 4 arquivos, até ai tudo certo. Tenho um botão que carrega o nome do arquivo selecionado em um edit, minha duvida é:

Queria que ao dar um duplo clique no arquivo exibido no ShellListView, o nome do mesmo fosse carregado no edit, o que ocorre ao clicar o botão carregar, a rotina faz isso mas abre o arquivo ao dar o duplo clique.

Os arquivo que serão carragados nos edit são do tipo xml, entao toda vez que dou um duplo clique no arquivo, ele carrega no edit mais abre o mesmo no internet explorer e é isso que não quero. Não que ele abra nada, apenas peque o nome do arquivo ao qual eu dei dois clique e carregue no edit.

eis a rotina do botão Carregar:

procedure TFrmRecebimentosBlocos.btnCarregarClick(Sender: TObject);
var x: Integer;
Texto: string;
begin
Texto:='';
for x := 0 to (ShellListView1.Items.Count-1) do
begin
if ( ShellListView1.Items[x].Selected)then
begin
Texto:= (TShellFolder(ShellListView1.Folders[x]).DisplayName);
if(Copy(Texto,1,2) = 'UP')then
EditSindicato.Text := (TShellFolder(ShellListView1.Folders[x]).DisplayName)+'.xml'
else
if(Copy(Texto,1,2) = 'PC')then
EditPC.Text := (TShellFolder(ShellListView1.Folders[x]).DisplayName)+'.xml'
else
if(Copy(Texto,1,2) = 'RS')then
EditRSE.Text := (TShellFolder(ShellListView1.Folders[x]).DisplayName)+'.xml'
ELSE
if(Copy(Texto,1,2) = 'DA')then
EditSocios.Text := (TShellFolder(ShellListView1.Folders[x]).DisplayName)+'.xml';

end;
end;
end;

a do evento OnDblClick do ShellListView :

procedure TFrmRecebimentosBlocos.ShellListView1DblClick(Sender: TObject);
begin
btnCarregar.Click;
end;

Como já disse desde já agradeço a quem puder me ajudar