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
    HelloWorldForm.ShowModal;
end;