버튼을 누르면 caption 을 보였줬다가 2-5초후 다시
캡션을 없애려 합니다.
컴파일해보면 전혀 caption 이 안나옵니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
  speedbutton1.Caption := '1';
  speedbutton2.Caption := '1';
  speedbutton3.Caption := '1';
  sleep(3500);
  speedbutton1.Caption := '';
  speedbutton2.Caption := '';
  speedbutton3.Caption := '';
end;




또 아래의 경우엔 왜 화면에 똑같이 나오지 이해를 할수없습니다.
sleep이 위에있나 아래에 있나 똑같은데...왜그런지 좀 알려주세요.

procedure TForm1.Button1Click(Sender: TObject);
begin
  speedbutton1.Caption := '1';
  speedbutton2.Caption := '1';
  speedbutton3.Caption := '1';
  sleep(3500);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sleep(3500);
  speedbutton1.Caption := '2';
  speedbutton2.Caption := '2';
  speedbutton3.Caption := '2';
end;