List View ПРОБЛЕМЫ

[Altera]

Привет всем!
У меня проблема с tListView

procedure adding(const value: string);
var
index: integer;
ext: string;
begin
   ext := extractFileExt(extractFileName(value));
   if ext = '.bmp' then index := 1;
   if ext = '.jpg' then index := 2 else index := 0;
   with test_form1.list.Items.Add do
   begin
      caption := value;
      imageindex := index;
   end;
end;

{$R *.dfm}
procedure Ttest_form1.build_buttonClick(Sender: TObject);
var
counter: integer;
sr: tSearchRec;
begin
   //************* Первый вариант ******************************
   {if findFirst('D:\Documents\Мои рисунки\Разное\CARS\*.*', faAnyFile, sr) = 0 then
   begin
      adding(sr.Name);
      while findNext(sr) = 0 do adding(sr.Name);
   end;}
   //************* Второй вариант ******************************
   if findFirst('D:\Documents\Мои рисунки\Разное\CARS\*.*', faAnyFile, sr) = 0 then
   begin
      with list.Items.Add do
      begin
         caption := sr.Name;
         if extractFileExt(extractFileName(sr.Name)) = '.bmp' then imageIndex := 1;
         if extractFileExt(extractFileName(sr.Name)) = '.jpg' then imageIndex := 2
         else imageIndex := 0;
      end;
      while findNext(sr) = 0 do
      begin
         with list.Items.Add do
         begin
            caption := sr.Name;
            if extractFileExt(extractFileName(sr.Name)) = '.bmp' then imageIndex := 1;
            if extractFileExt(extractFileName(sr.Name)) = '.jpg' then imageIndex := 2
            else imageIndex := 0;
         end;
      end;
   end;
end;

Если юзай первый вариант, то получается одна ерунда, а второй - другая...



Мне надо, что-б под BMP - одна иконка, под JPG - другая, а под всё остальное - третяя. Да, вот вопрос по теме, какие функции приравнивают текст к верхнему и нижнему регистрам??? (.jPg => .JPG => .jpg)............ Спасибо заранее!

[Dj_smart]

ansilowercase('БаБаГаЛаМаГа') тебе вернет 'бабагаламага'