RosettaCodeData/Task/Call-a-function-in-a-shared-library/Delphi/call-a-function-in-a-shared-library-1.pas

procedure DoSomething; external 'MYLIB.DLL';