How does the API call to make a dialup network connection look like?

Problem/Question/Abstract:

How does the API call to make a dialup network connection look like?

Answer:

The following code creates an internet connection through dialup networking:

uses
  WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then
    MessageDlg('No internet connection', mtError, [mbOk], 0);
end;