Frage zu Filetype von TJvFileListBox

[toyoman]

So sieht meine Prozedure aus:

Delphi-Quellcode:

if filelistbox.FileType<>[ftDirectory] then
 begin
     if chkrelative.Checked=false then
     begin
        if filelistbox.FileName<>'' then
        begin
          lbfiles.Items.Add(filelistbox.FileName);
        end;
     end else
     begin
        if filelistbox.FileName<>'' then
        begin
          lbfiles.Items.Add(ExtractRightString(filelistbox.FileName,'\'));
        end;
     end;
 end else
 begin
   logfileschreiben('Filetype directory ignored!',logfilename);
 end;

Diese Befehle sollen nur durchlaufen werden wenn es sich NICHT um ein Verzeichnis also ftDirectory handelt. Leider funzt das nicht: Die Befehle werden auch beim Klick auf einen Ordner / Verzeichnis abgearbeitet. Sprich mein if filelistbox.FileType<>[ftDirectory] scheint nicht zu interessieren.

Was mach ich hier falsch?