|
if (FreeMB>{#NeedSize}) then NeedSpaceLabel1.Font.Color:=clBlack else NeedSpaceLabel1.Font.Color:=clRed;
if (FreeMB>{#NeedSize}) then Progress.State:= npbsNormal else Progress.State:= npbsError;
if (FreeMB>{#NeedSize}) then progress.Position:=FreeMB*100/TotalMB;
|