procedure TAutolaskuri.ButtonHAClick(Sender: TObject); begin if sender is TButton then LabelHA.Caption := IntToStr(StrToInt(LabelHA.Caption)+1); end;
procedure TAutolaskuri.ButtonKAClick(Sender: TObject); begin LabelKA.Caption := IntToStr(StrToInt(LabelKA.Caption)+1); end;