{ A função abaixo abre a caixa de diálogo de conexão 
  com a rede Dial-Up. O parâmetro "name" é o nome da
  conexão previamente configurada.
}

procedure DialUpConnect(const Name: string);
begin
  WinExec(PChar('rundll32.exe rnaui.dll,RnaDial ' + Name), SW_SHOW);
end;

{ Exemplo de uso: }

procedure TForm1.Button1Click(Sender: TObject);
begin
  DialUpConnect('NomeDaConexão');
end;