Learn DELPHI-VCL with Real Code Examples

# delphi_vcl/demo.dpr
program HelloWorld;
uses
    Vcl.Forms,
    Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
end.

# Unit1.pas
unit Unit1;
interface
uses
    Vcl.Forms, Vcl.StdCtrls;
type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage('Hello World');
end;
end.

A simple Delphi VCL program showing a form with a button that displays 'Hello World' when clicked.