ステータスバーの表示を数秒後に消すには？ (ID:44439)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.StatusBarClear(i: Integer); // iは終了するまでの秒数 begin Timer1.Enabled := True; Timer1.Interval := i * 2000; StatusBar1.SimpleText :=''; Timer1.Enabled := False; StatusBar1.SimpleText :=''; end; と書いて StatusBarClear(3) と他の処理に書いてみましたが、 即時に文字列が消えてしまって、うまくいかないです。