Как изменить число колонок и их ширину в компоненте TFileListBox?

FileListBox приводится к типу TDirectoryListBox - таким образом можно добавить дополнительные колонки.

with TDirectoryListBox(FileListBox1) do 
begin
Columns := 2;
SendMessage(Handle, LB_SETCOLUMNWIDTH, 
Canvas.TextWidth('DDDDDDDD.DDD'),0);
end;