HelloWorld.delphi

procedure TForm1.ShowAMessage;
begin
  ShowMessage('Hello World!');
end;