テキストファイル出力の完了を待つには？ (ID:22945)

名前

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

本文 あるフォームで、TStringListのSaveToFile()メソッドを発行しています。 ノートPCで、HDDの遅いモードでの運用時、 このフォームを閉じるとアプリケーションがフリーズするという現象が発生し、 テキストファイルの書き込みが完了していないのが原因ではないかと推測しました。 その根拠は、3秒ほど待ってからフォームを閉じると、 フリーズが発生しないためです。 そこで質問なのですが、SaveToFile()メソッドで、 対象のファイルの保存が完了したことを確認するにはどうすれば良いでしょうか？ 試しに、ループでFileExists(当該ファイル名)を行って、 ファイルの存在をチェックして抜けるようにしてみたのですが、 これでは効果がありませんでした。 妙案がありましたらよろしくお願いします。