RosettaCodeData/Task/Hello-world-Newbie/Delphi/hello-world-newbie-3.delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('Hello World');
end;