listview1控件先放到窗体上。
var
  NewItem: TListItem;
  NameList: TstringList;
  i: Integer;
  NewColumn: TListColumn;
begin
  NameList.Assign(NMFTP.list);//文件列表
  Listview1.ViewStyle := vsReport;
  NewColumn := Listview1.Columns.Add;
  NewColumn.Caption := '文件名';
  For i := 0 to NameList.Count - 1 do
  begin
    NewItem := ListView1.Items.Add;
    NewItem.caption  := NameList[i];
  end;2.  image1.Picture.Assign(nil);