[Ross]

Ну а если сократить, то вот что получается:

var FullD: Integer;
FreeD: Integer;
FullD:=(Disksize(0)) div 1048576; {Указываю в MB}
FreeD:=(Diskfree(0)) div 1048576; {Указываю в MB}
form1.progressbar1.max:=fulld;
form1.progressbar1.position:=freed;