GetDir + FTP

[japetos]

ich hab das jetzt so:

Code:

begin
  if IdFTP1.Connected then try
  finally
    directory := KAAdoTable1.Fields[4].Text;
    //Dir := directory;
    Dir := 'C:\neu';
    Label1.Caption := 'Selected Directory: ' + dir;
    Screen.Cursor := crHourGlass;
    TreeView1.Items.BeginUpdate;
    try
      TreeView1.Items.Clear;
      GetDirectories(TreeView1, Dir, nil, True);
    finally
      Screen.Cursor := crDefault;
      TreeView1.Items.EndUpdate;
    end;
  end else
  ShowMessage('No FTP-Connection');
end;

nur wie bekomme ich 'directory' in 'Dir'?
irgendwie klappt das nicht.