///////////////////////////////
//Hello World in a dialog box//
///////////////////////////////
procedure SomeProc(str);
begin
    ShowMessage (str);
end;

begin
  SomeProc('Hello World!');
end;