[Yurgen]

Вобщем отображение списка задано такой процедурой:

Код:

procedure TMainForm.actRefreshExecute(Sender: TObject);
var res : TSearchRec;
begin
     lvFiles1.Clear;
     if ( FindFirst ( '*.*', faAnyFile, res ) <> 0 ) then Exit;
     repeat
           lvFiles1.Items.Add.Caption := res.name;
           if ( res.Attr = 10 ) then lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 0
           else lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 1;
     until ( FindNext ( res ) <> 0 );
end;

Но оно к сожалению крашит на выражении:

Код:

 if ( res.Attr = 10 ) then lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 0
           else lvFiles1.Items[lvFiles1.ItemIndex].ImageIndex := 1;