Erro de memória

Tenho uma rotina que imprime multas com fotos de radar e usa 3 cód. de barras do DuckBarcode.Quando o canvas está enviando a 180ª ou 200ª multa, aparece uma mensagem:
´Parametro Incorreto´. Quando eu rodo pelo fonte do delphi, logo depois dessa mensagem aparece: ´EOutOfResources´ e pára a execução nessa linha:
´DrawImage(Printer.Canvas,C*04+Esquerda,L*149+Superior,1300*Res,180*Res,CodBarraBanco);´
Os comandos e funções que uso são:
procedure DrawImage( Canvas : TCanvas; X, Y, Width, Height : Integer; ABitmap : TBitmap);
var
Header, Bits : Pointer; HeaderSize : DWORD; BitsSize : DWORD;
begin
GetDibSizes( ABitmap.Handle, HeaderSize, BitsSize );
Header := AllocMem( HeaderSize );
Bits := AllocMem( BitsSize);
try
GetDib( ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
StretchDIBits(Canvas.Handle,X,Y,Width,Height,0,0,ABitmap.Width,ABitmap.Height,Bits,
TBitmapInfo(Header^),DIB_RGB_COLORS,SRCCOPY);
finally
FreeMem( Header, HeaderSize);
FreeMem( Bits, BitsSize );
end; end;
e para enviar à impressora:
jpg := TJPEGImage.Create; Imagem := TBitmap.Create;
Jpg.LoadFromFile(foto);
Imagem.Assign(JPG);
DrawImage(Printer.Canvas,C*04+Esquerda,L*80+Superior,2200*Res,690*Res,Imagem);
end;
jpg.Free; Imagem.Free; jpg := Nil; Imagem := Nil;

Para a foto que é JPG é
CodBarraBanco := TBitMap.Create;
CodBarraBanco.Assign(FrmImpMultaGeral.duckbarcode2.Getbitmap);
DrawImage(Printer.Canvas,C*04+Esquerda,L*149+Superior,1300*Res,180*Res,CodBarraBanco);
CodBarraBanco.Free;
codbarrabanco := Nil;
Eu vi na ajuda do Delphi que EOutOfResources é quando o sistema tenta alocar na memória do windows e esta está cheia. Teria algum jeito de limpar a memória do Windows a cada impressão dessa? OBS. Esses códigos são executados a cada multa impressa.