如何在DragOver事件中获取拖拽源TObject的名称

以下是各类内容的Markdown格式化规则：

• 标题：使用井号 # 定义，井号数量对应标题层级：
  • 一级标题：# 一级标题
  • 二级标题：## 二级标题
  • 三级标题：### 三级标题
  • 以此类推，最多支持六级标题
• 列表项：以短横线 - 开头，嵌套列表需要缩进：
  • 一级列表项
    • 二级嵌套列表项
• 文本强调：用星号 * 包裹文本：
  • 斜体效果：*斜体文本* → 斜体文本
  • 粗体效果：**粗体文本** → 粗体文本
• 代码/命令：用反引号 ` 包裹，多行代码使用三个连续反引号：
  • 行内代码：procedure TForm1.ButtonClick(Sender: TObject);
  • 多行代码块：

    procedure TfrmBodyPlan.pnlStepsDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    begin
      // 编写你的拖拽逻辑
    end;
    

• 引用文本：用大于号 > 开头：

  这是一段被引用的文本内容

• 链接：格式为 [链接显示文本](目标URL)：
  • 示例：[Markdown 参考](https://commonmark.org)
• 图片：格式为 [图片替代文本](图片URL)，替代文本在图片无法加载时显示：
  • 示例：[示例图片](https://example.com/image.png)

内容的提问来源于stack exchange，提问作者Seti Net