Handle Problem in Printers.pas (letzter Leak-Thread ;)

[Uwe Raabe]

Probier doch mal dies:

Delphi-Quellcode:

procedure TestPrinter;
var
  i: Integer;
begin
  for i := 1 to 100 do
  begin
    Printer.BeginDoc;
    Printer.EndDoc;
    SetPrinter(nil).Free;
  end;
end;

Nur so 'ne Idee...