procedure TFenster.GetImageIndex(Sender: TObject; Item: TListItem);
function FileExt(const FileName: String): String;
var i: Integer;
begin
 i := LastDelimiter('.'+PathDelim+DriveDelim, FileName);
 if (i > 0) and (FileName[i] = '.') then
 RESULT := Copy(FileName, i+1, MaxInt)
 else RESULT := '';
end;
var e: String;
begin
 e := LOWERCASE(FileExt(Item.Caption));
 if (e='exe') or (e='msi') or (e='bat') or (e='com') then
 Item.ImageIndex := 6
 else if (e='bmp') or (e='jpg') or (e='jpeg') or (e='gif') or (e='png') or (e='ico') or (e='tiff') then
 Item.ImageIndex := 7
 else if (e='htm') or (e='html') or (e='xml') then
 Item.ImageIndex := 8
 else if (e='txt') or (e='ini') or (e='inf') or (e='log') or (e='css') then
 Item.ImageIndex := 9
//usw.....
 else Item.ImageIndex := 20
end;