program hello;

function MessageBox(hWnd: THandle; lpText: PAnsiChar; lpCaption: PAnsiChar; uType: Cardinal): Integer;
    stdcall; external 'user32.dll' name 'MessageBoxA';

begin
    MessageBox( 0, 'Hello, Win32 API(Delphi) World!', 'Hello, World!', 0 );
end.