Узнайте, насколько быстро работает жесткий диск в Delphi

Я пишу программу диагностики (например, Everest, но попроще), и мне нужно знать, насколько быстр жесткий диск. Я хочу знать такие вещи, как:

1 - Байт в секунду (чтение)
2 - Байт в секунду (запись)
3 - Данные SMART

Думаю, я могу использовать WMI для запроса таких вещей, но понятия не имею, как это сделать. Не имеет значения, нужно ли мне покупать компонент или получить компонент с открытым исходным кодом. Я также знаю, что Windows Perfmoon может это сделать, но я не могу его использовать.