[RegIon]

типо так:

SetColor(255,200,200);
w:=trunc((Time/llength)*100);
rectangle(0,getHeight()-20,w,20);