Speicheranzeige wie bei iTunes anzeigen

[Rainbow6]

Vielleicht klingt das jetzt ein wenig vereinfacht, aber im Prinzip müsste das doch so funktionieren:

Code:

Shape1.Left := 0;
Shape1.Width := 600 * prozent1;
Shape2.Left := Shape1.Left + Shape1.Width + 1;
Shape2.Width := 600 * prozent2;
Shape3.Left := Shape2.Left + Shape2.Width + 1;
Shape3.Width := 600 * prozent3;
Shape4.Left := Shape3.Left + Shape3.Width + 1;
Shape4.Width := 600 * prozent4;

Oder seh ich das verkehrt?