[NumLock]

там:

Код:

unit Printers;
...
function Printer: TPrinter;
begin
  if FPrinter = nil then FPrinter := TPrinter.Create;
  Result := FPrinter;
end;

а что будет без установленного принтера мне лень проверять)