ShowMessage() 호출하는 부분에 Repaint()을 써 보세요.
Canvas에 그릴 때 화면에서 보이는 것이 아니고 WM_REPAINT 메세지가 가야 화면에서 보이는 겁니다.

정원희 님이 쓰신 글 :
: 임의의 버튼을 눌렀을때 난수발생을 시켜서 그 숫자에 따라 Canvas 에 뭘 그리는 부분을 작성하고 있습니다.
:
: 로직상에 별 문제는 없는거 같은데... 그냥 실행하면 무한루프 비슷하게 돌면서 프로그램이 가만 있길래.. 중간중간 random() 을 부르는 부분에 ShowMessage 를 몇개 넣어줬더니.. 제대로 화면에 그려지는군요.
:
: 왜 이런건지.. ^_^;; 아시는 분은 답변 좀 부탁드립니다.
:
: -P.S-
: 그리고 Randomize() 랑 RandomRange() 가 잘 안먹히는거 같네요.. randomize()랑 random() 으로 바꿔서 쓰고 있긴 합니다만...
: Randomize() 를 호출해도.. 매번 시작될때 생성되는 난수순서가 똑같은거 같기도 하고..
: 간만에 빌더 잡고 하니까 다시 버벅대는군요 ㅡ.ㅜ