Alerta ao acabar cap.

Const
cap = 20 \\ Altere aqui a cap para apitar

while not terminated do
begin
UpdateWorld;
if self.capacity <>
PlaySound('C:\Windows\Media\notify.wav');
Sleep(100);
end;