ShellBrowser.Folder := 'C:Windows';
Title := fShellBrowser.GetColumnText(0, True);
while Length(Title)>0 do begin
  col := ListView.Columns.Add;
  col.Caption := Title;
  col.Alignment := FShellBrowser.GetColumnInfo(col.Index, w);
  col.Width := w;
  Title := fShellBrowser.GetColumnText(ListView.Columns.Count, True);
end;