[Electronic_Arts]

СПАСИБО ОГРОМНОЕ!!!

Код:

var
i:integer;
 li: TListItem;
   ind: string;
   size:real;
   b :byte;
begin
for i:=0 to filelistbox1.Items.Count-1 do
begin
getfilesize(filelistbox1.items[i]);
  size:=(getfilesize(filelistbox1.items[i]));
  b:=0;
  while (Size>=1024) and (b<3) do
   begin
    size:=size/1024;
    b:=b+1;
  end;
  if b=1 then ind:='Кб';
  if b=2 then ind:='МБ';
  if b=3 then ind:='ГБ';
  if b=0 then ind:='байт';
  li := ListView1.Items.Add;
listview1.AddItem(filelistbox1.Items[i] ,self);
li.SubItems.Add( floattostrf(Size,fffixed,5,2)+' '+ind); //
end;

SubItems добавляется после файла а не перед файлом как исправить??