function Tfrm_UMS.FindConVersionDrive : Boolean; var Loop : Integer; reg : TRegistry; begin Result := False; reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\ImageMaker\ODCDSK\BW', False); PrinterName := reg.ReadString('PrinterName'); finally reg.Free; end; if PrinterName = '' then Exit; Printer.Refresh; for Loop := 0 to Printer.Printers.Count-1 do begin if P..