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