[Alegun]

Можно так, но без иконок

Код:

var
 ListItem: TListItem;
 i: integer;
begin
  ListView1.Items.BeginUpdate;
  for i:= 0 to ListBox1.Items.Count -1 do
  begin
  ListItem := ListView1.Items.Add;
  ListItem.Caption:=ExtractFileName(ListBox1.Items.Strings[i]);
  ListItem.SubItems.Add(ListBox1.Items.Strings[i]);
  end;
  ListView1.Items.EndUpdate;
end;

если нужны иконки, то берите их как в функции LV_InsertFiles т.е. используйте FileInfo, код такой же как и там