想问下图中的代码是什么编程语言

问题遇到的现象和发生背景
问题相关代码，请勿粘贴截图 unit Thgc; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComDj, Menus, DBCtrls, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Mask, Grids, DBGrids, Buttons, Db, CheckLst, ActnList; type

procedure TTimerSpeedButton.MouseUp (Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited MouseUp (Button, Shift, X, Y); if FRepeatTimer <> nil then FRepeatTimer.Enabled := False; end; procedure TTimerSpeedButton.TimerExpired (Sender: TObject); begin FRepeatTimer.Interval := RepeatPause; if (FState = bsDown) and MouseCapture then begin tryClick; except FRepeatTimer.Enabled := False; raise; end; end; end; end.

运行结果及报错内容
我的解答思路和尝试过的方法
我想要达到的结果

如图

img


谢谢

这是Delphi开发工具所用的Object Pascal,面向对象的Pascal语言
参考

delphi（应用程序开发工具）_百度百科 Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了MicrosoftWindows图形用户界面 https://baike.baidu.com/item/delphi/140081?fr=aladdin

如有帮助，请点击我的回答下方的【采纳该答案】按钮帮忙采纳下，谢谢!

img

Delphi，面向对象的Pascal (Object Pascal)