The following example demonstrates casting a FileListBox component to a TDirectoryListBox component so additional columns can be added and sized. Example:

  with TDirectoryListBox(FileListBox ) do begin
    Columns := 2;
    SendMessage(Handle,
                LB_SETCOLUMNWIDTH,
                Canvas.TextWidth('WWWWWWWW.WWW'),
                0);
end;