Die oben verlinkte
Unit "Download als Komponente"
Delphi-Quellcode:
constructor TPrinterInfo.Create(AOwner: TComponent);
begin
inherited Create; //<- geändert!
Delphi-Quellcode:
property PaperTrays : TStrings read GetPaperTrays;
property PaperSizes : TStrings read GetPaperSizes;
constructor Create(AOwner: TComponent);
destructor Destroy; override; //<- geändert!
end;