Kod:
var alan:Integer; begin alan:=DiskSize(3); showmessage(IntToStr(alan));