ShellBrowser.SpecialFolder := SF_DRIVES;
While ShellBrowser.Next do begin
  if Pos(':', ShellBrowser.ObjectName)>0 then
    ListOfDrives.Items.Add(ShellBrowser.ObjectName);
end;