Не сбрасываются переменные объявленные в другой процедуре, как const sumHum:integer=0;
(Сброс происходит в той же форме, но в другой процедуре)(в public
объявлен)
procedure TForm1.Button2Click(Sender: TObject);
var
r:TModalResult;
begin
r :=MessageDlg('сбросить счет?',
mtCustom, [mbYes,mbNo], 0);
if r=mrYes then
begin
//Label6.Caption := '0';
//Label7.Caption := '0';
sumHum := 0;
sumComp := 0;
end;