อยากรู้ว่าโค๊ดนี้เขียนด้วยโปรแกรม อะไรครับ

// <DFM> TFRMMAIN = class(TForm);

object frmMain: TfrmMain
Left = 280
Top = 170
BorderStyle = bsSingle
Caption = 'test1'
ClientHeight = 524
ClientWidth = 693
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 1
Top = 143
Width = 441
Height = 230
ActivePage = TabSheet2
PopupMenu = popupStabce
TabOrder = 2
OnChange = PageControl1Change
object TabSheet2: TTabSheet
Caption = 'Map'
ImageIndex = 1
object imgMap: TImage
Left = 2
Top = 0
Width = 200
Height = 200
OnMouseDown = imgMapMouseDown
OnMouseMove = imgMapMouseMove
end
object btnZoomIn: TButton
Left = 184
Top = 0
Width = 17
Height = 17
Caption = 'Z'
TabOrder = 0
TabStop = False
OnClick = btnZoomInClick
end
object btnZoomOut: TButton
Left = 184
Top = 16
Width = 17
Height = 17
Caption = 'z'
TabOrder = 1
TabStop = False
OnClick = btnZoomInClick
end