[PassCall]

Простейший пример

a:=trunc((live/maxlive*1.0)*100.0);
setcolor (255,0,0);
fillrect (0,0,a,5);


live - жизнь

maxlive - макс. жизнь (капитан очевидность не спит!)
умножать на 1.0 надо потому, что иначе будет криво считать

a - это длинна будущей полоски. максимальная - 100.

setcolor - устанавливаем цвет (в данном случае - красный)
fillrect - рисуем полоску. начинается в левом верхнем углу, имеет ширину "a" и высоту 5.

Надеюсь, как вывести на экран прорисовку и как описывать переменные, в курсе?