RS232C通信ポートのオープン確認

OpenCheck: Boolean; // COMM Open確認

OpenCheckは、ポートをオープンしていたら、True していなければ Falseを返します。

if Comm1.OpenCheck then Comm1.Cloos; // 通信ポートオープンしていたらクローズ

if not Comm1.OpenCheck then Comm1.Open; // 通信ポートクローズしていたらOpen

if Comm1.OpenCheck then Comm1.SendSring('本日は晴天なり'); // 通信ポートオープンしていたら送信

ポートオープン時Comm1.Openで、エラーが無ければ、フラグを立てるようにすれば、必要ないのですが、Commコンポーネントが、OPENフラグを返すのが、一番確実です。