procedure RemoteUpdateListing;

var

  F: TWin32FindData;

  Enum: HInternet;

  R: Bool;

  Item: TListItem;

  Icon: TIcon;

  FileName: string;

  FileSize: Integer;

begin

  Icon := nil;

  Enum := nil;

  Form1.RemoteListView.Items.BeginUpdate;

  try

    Icon := TIcon.Create;

//    ClearRemoteImageList;

    Form1.RemoteListView.Items.Clear;

    if FRemotePath <> '/' then

    begin

      Item := Form1.RemoteListView.Items.Add;

      Item.Caption := '..';

      Item.SubItems.Add('');

      Item.SubItems.Add('File Folder');

      Item.ImageIndex := 0;

    end;

    Enum := FtpFindFirstFile(FtpHandle, PChar(FRemotePath + '*.*'), F, 0, 255);

    R := Enum <> nil;

    while R do

    begin

      FileName := F.cFileName;

      Item := Form1.RemoteListView.Items.Add;

      Item.Caption := FileName;

      FileSize := (F.nFileSizeHigh shl 32) or (F.nFileSizeLow);

      if F.dwFileAttributes and faDirectory = faDirectory then

      begin

        Item.SubItems.Add('');

        Item.SubItems.Add('File Folder');

        Item.ImageIndex := 0;

      end

      else begin

        Item.SubItems.Add(FileSizeToString(FileSize));

        Item.SubItems.Add(GetFileTypeDescription(FRemotePath + FileName, True));

        Icon.Handle := GetFileTypeIcon(FRemotePath + FileName, True);

        Item.ImageIndex := Form1.RemoteViewImages.AddIcon(Icon);

      end;

      R := InternetFindNextFile(Enum, @F);

    end;

  finally

    InternetCloseHandle(Enum);

    Form1.RemoteListView.Items.EndUpdate;

  //  FreeAndNil(Icon);

  end;

end;