[Rako]

Ya esta solucionado. El problema estaba en no poner en la propiedad Dirlist el directorylistbox para que no lo haga automatico y poder probar primero si peta o no.

procedure TTInicial.DriveComboBox1Change(Sender: TObject);
var
     OldErrMode: DWORD;
begin
     try
         OldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
         try
             DirectoryListBoxEx1.Drive := DriveCombobox1.Drive;
         finally
             SetErrorMode(OldErrMode);
         end;
     except on E: EInOutError do begin
           DriveCombobox1.Drive := DirectoryListBoxEx1.Drive;
           MessageDlg('No se ha podido cambiar a dicho dispositivo. Por favor      seleccione uno correcto del disco duro', mtWarning, [mbOK], 0);
   end;
  end;
end;