Узнать что это папка

[HTTqp]

Как определить что выделеная ListView1.Selected.Caption является папкой а не файлом. Пробовал проверить так

( ListView1.Selected.Caption  and faDirectory)<>faDirectory

Не уверен что это правильно вообще, пробовал играть с ExtractFileName но не получается и все.

и помогите как выделить определенную строку (всю) цветом,знаю что надо через canvas по-моему делать но как?

[phomm]

Выделение всей строки в листвью делается свойством RowSelect (поставить в True)
Проверка директории гуглится на раз

[HTTqp]

phomm, Делаю так, он пишет постоянно ShowMessage('NO') даже если это файл;

function DirectoryExists(const Name: string): Boolean;
var
  Code: Integer;
begin
  Code := GetFileAttributes(PChar(Name));
  Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;

procedure TForm1.ListView1KeyDown(Sender:TObject; var Key:Word;Shift:TShiftState);
begin
if Key=vk_space then
begin
if DirectoryExists(ListView1.Selected.Caption) then ShowMessage('DIR');
 else ShowMessage('NO');
end;
end;

2, я имею ввиду выделение например цвет текста в определенной строки был бы красным, или зеленым.