FTP hjælp

Hej, har denne kode til at kontakte mit FTP inhold på min FTP server:

var
  ListBox1 : TStringList;
begin
idFTP3.Host := '*********' ;
idFTP3.Username := '*********' ;
idFTP3.Password := '************';
try
idFTP3.Connect();
      except
        on E:Exception do
         ListBox1.Text := 'Error: Der kunne ikke oprattet forbindelse til FTP servern...' ;
          end;
  ListBox1 := TStringList.Create;
  try
  IdFTP3.List(ListBox1,'*.*',false);

  finally

    ListBox1.Free;
    IdFTP3.Disconnect;

  end;

Der kommer en besked hvor der står:
"Projeck Project1.exe raisen exception class EidProtocolReplyError with message 'Cannot open data connection.'".

Og i Delphi står der:
"Variable 'Listbox1' might not have been initalized.

Hvad kan problemet være ?