(Printername: string): string; var Reg: TRegistry; p: Integer; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_CURRENT_USER; if OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\Devices\',True) then begin if ValueExists(Printername) then begin // Im reg Key ...