RosettaCodeData/Task/Call-a-foreign-language-function/Delphi/call-a-foreign-language-function-2.delphi

procedure Hello(S: PChar); stdcall; external;