[Yurgen]

Спасибо разобрался. Даже немного импрувнул используя битовую маску:

Код:

if ( sr.Attr and $10 ) = faDirectory then begin
              SubItems.Add ( '<DIR>' );
              ImageIndex := 1;
           end;

Теперь новая проблема. Как отсортировать список так, что бы сначала шли папки, а потом файлы. А не все отсортировано просто по имени.