질문전에 관련된 사항을 최대한 찾아보고 글을 올립니다만 여러번 나온 질문이라면 죄송합니다. 읽어보시고 조그마한 정보라도 부탁드려요. :)

*** 질문의 요지는 'while true do...  '에서 탈출 조건을 줬는데 그 조건을
*** 받아 들이지 못한 다는 것입니다.

먼저 간략히 설명하면 아래 프로시져는 윈도우 보조프로그램속에 있는 계산기와  비슷한 계산기를 만들면서.. 계산기 버튼들에 대한 클릭 이벤트 핸들러입니다.(모든 버튼을 하나의 핸들러로 처리하게 했습니다.)

procedure TfrmCaculator.btnClick(Sender: TObject);
if Sender btn1 then ....               //숫자 1 버튼을 눌렀을 때...
else if Sender btn2 then ....
else if Sender btnReset then ....  // 계산기의 CE(clear)버튼 눌렀을 때..
else if Sender btnResult then ....  // 계산기의 '='버튼입니다.
begin
.... (생략)
if SecondInput = 0 then begin           // 나누려는 값이 0일 때
    edtWindow.text := '0으로 나눌 수 없습니다!';
                  
   while true do begin
     // 계산기의 Reset버튼을 누르면 while문을 벗어납니다. exit 사용

        if  Sender = btnReset then begin                  
              reset;  // 변수들을 0으로 만들어 줍니다.
              exit;
        end
     end;
end

// 나누려는 수가 0이 아니라면 나누기 작업을 수행합니다.
else
       Result := FirstInput / SecondInput;
... (하략)

어떤 수를 0으로 나누었을 때 '0으로 나눌 수 없습니다!'라는 메시지를 출력시키고 reset 버튼(계산기의 CE 버튼에 해당)을 누르면 reset이라는 사용자 지정함수가 계산에 사용되는 변수들을 0으로 만들고 procedure를 탈출하게 하려고 했습니다.

그.런.데!
reset 버튼(name = btnReset)을 눌러도 while을 벗어나지 않습니다.
그리고 CPU 점유율 100%가 됩니다.

[알고자 하는 것]
1.왜 while문에서 reset버튼 누르는 이벤트를 인식하지 못하는 거지요?
Sender = btnReset에서 문제가 있다면 어떻게 바꿔야하나요?

2.이와 더불어... while true do... 를 쓰면 cpu 점유율이 100%이되는데 이와 같은 현상을 막으면서도 동일한 기능을 하는(버튼의 입력을 기다린다) 방법이 있나요?

도움 부탁드립니다. :)