[NekitoSSSS]

Викентий, поправочка к твоей подписи:
try
if Помог=1 then репутация:=репутация+1;
except
on e:ПоздноПомог do Репутация:=Репутация-1;
end;
ок!!! не флуди, я вроде ясно написал что проблема решена!!