delphi - コピーする前に dbPlanner (TMS) アイテムが存在するかどうかを確認します

Question

dbPlanner でイベント項目をコピーするには、TMS Web サイトのマニュアルからの提案を使用しました。

procedure TForm1.AdvGlowButton3Click(Sender: TObject);
begin
dbPlanner2.Items.Select(dbPlanner2.Items.Selected);
dbPlanner2.Items.CopyToClipboard;
dbPlanner2.SelectCells(dbPlanner2.SelItemBegin,dbPlanner2.SelItemEnd,dbPlanner2.SelPosition +1 );
end;

しかし、そもそもコピーするアイテムが存在するかどうかを確認するにはどうすればよいですか? ボタンをクリックしてコピーするときにアイテムが選択されていないと、例外が発生します。