procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=inttostr(strtoint(label1.Caption)+10); end;