// Hiermit ruft man den Wizard zum Erstellen einer neuen DFÜ-Verbindung auf.

// Getestet mit D4 unter WinME

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(application.handle,'open','rundll32.exe',
pchar('rnaui.dll,RnaWizard /1'),nil,sw_shownormal);
end;