add form

HelloWorld.dfm

@@ -0,0 +1,37 @@
+object HelloWorldForm: THelloWorldForm
+  Left = 300
+  Top = 200
+  BorderStyle = bsDialog
+  Caption = 'Hello World'
+  ClientHeight = 120
+  ClientWidth = 380
+  Position = poScreenCenter
+  Visible = False
+  object Button1: TButton
+    Left = 20
+    Top = 40
+    Width = 100
+    Height = 32
+    Caption = 'Button 1'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 140
+    Top = 40
+    Width = 100
+    Height = 32
+    Caption = 'Button 2'
+    TabOrder = 1
+    OnClick = Button2Click
+  end
+  object Button3: TButton
+    Left = 260
+    Top = 40
+    Width = 100
+    Height = 32
+    Caption = 'Button 3'
+    TabOrder = 2
+    OnClick = Button3Click
+  end
+end

HelloWorld.pas

@@ -1,4 +1,19 @@
+procedure THelloWorldForm.Button1Click(Sender: TObject);
+begin
+    ShowMessage('Hello World - Button 1');
+end;
+
+procedure THelloWorldForm.Button2Click(Sender: TObject);
+begin
+    ShowMessage('Hello World - Button 2');
+end;
+
+procedure THelloWorldForm.Button3Click(Sender: TObject);
+begin
+    ShowMessage('Hello World - Button 3');
+end;
+
 procedure HelloWorld;
 begin
-    ShowMessage('Hello World');
+    HelloWorldForm.ShowModal;
 end;