// добавьте ShellAPI в USES

begin
  ShellExecute(handle, nil, 'rundll32.exe',
    'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter',
    '', SW_SHOWNORMAL);
end;