проподает фокус ввода с combobox и не отображаются иконки файлов в win XP

[boshki]

1) могу ввести только 1 символ и яокус ввода пропадает
незнаю какую часть кода выложить, поэтому скину проект
проект здесь: http://depositfiles.com/files/39tp5h0j9

2) не отображаются иконки файлов в win XP, в win7 все нормально

res := SHGetFileInfo(nil, 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX);
imglist.Handle := res;

if (FindFirst(path1,faAnyFile , sr1) = 0) then
   begin
     li := lv.Items.Add();
     li.Caption := sr1.Name;
     new(inf1);
     //path1:=rem('*',path1);
     inf1^.link:=path1;
     inf1^.tab:=inttostr(form1.lvListgroup.Tag);
     li.Data:=inf1;
     ShGetFileInfo(PChar(path1), 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
     li.ImageIndex := fi.iIcon;
   end;
FindClose(sr1);