Спасибо разобрался. Даже немного импрувнул используя битовую маску:
Код:
if ( sr.Attr and $10 ) = faDirectory then begin
SubItems.Add ( '<DIR>' );
ImageIndex := 1;
end;
Теперь новая проблема. Как отсортировать список так, что бы сначала шли папки, а потом файлы. А не все отсортировано просто по имени.