793번의 내용에 따라서 하니 그것도 잘되었습니다.
그래서 do_data 의 내용을 확인하려고
tedit(sender).text:= inttostr(do_data);
이렇게 if문의 참인 문장과 거짓인 문장에 추가를 했더니만
결과가 이상 야릇하게 나오더라구요
결과가 tedit에 나오는게 아니고 tbutton에 나오구 값도 이상하더라구요
한가지 궁굼한 점은 Procedure TForm1Click(sender: Tobject);
에서 sender 와 Tobject 는 어떤 값을 주고 받는 것인지 알려주시면
감사하겠습니다요.