[pockelsm3]

haciendo esto es que me da el error

procedure TForm1.Button1Click(Sender: TObject);
begin
DiskInfo1.DriveLetter := 'C';
label1.Caption := DiskInfo1.SerialNumber;
end;