Delphi FTP Listbox

[nobobic]

Всем привет знатоки помогите как открыть файл или папку в Listbox при двойной клике мыши ?
пример на этом коде:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
idftp1.host:=edit1.text;
idftp1.username:=edit2.text;
idftp1.password:=edit3.text;
idftp1.connect;

if idftp1.connected then
begin
form1.caption:=caption+' '+idftp1.host;
idftp1.list;
for i:=2 to idftp1.directorylisting.count -1 do
ListBox1.items.add(idftp1.directorylisting.items[i].filename);
end;

Заранее СПАСИБО!!!

[Stilet]

В OnDblClick Листбокса напиши:

idftp1.ChangeDir(ListBox.Items[ListBox.ItemIndex]);
BitBtn1.Click();

А это:

idftp1.host:=edit1.text;
idftp1.username:=edit2.text;
idftp1.password:=edit3.text;
idftp1.connect;

Вынеси за кнопку.
Или оставь, но напиши так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if not idftp1.connected then begin
idftp1.host:=edit1.text;
idftp1.username:=edit2.text;
idftp1.password:=edit3.text;
idftp1.connect;
end;

if idftp1.connected then
begin
form1.caption:=caption+' '+idftp1.host;
idftp1.list;
for i:=2 to idftp1.directorylisting.count -1 do
ListBox1.items.add(idftp1.directorylisting.items[i].filename);
end;

[nobobic]

спасибо работает =)