Утечка памяти в потоке при многократной обработке TBitmap

[planetoxod]

Делфи7. Создаётся поток, где в цикле
создаётся Bitmap1 (5МByte), который сравнивается c Bitmap2, далее
Bitmap1.Free;
Sleep(5000);
повторяем цикл. Память по диспетчеру утекает по 5МByte, далее вылет за системные ресурсы.
Кто чем может, заранее благодарен.

Код Delphi

unit UnitPot;
 
interface
uses
  Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},SysUtils,SyncObjs,ShlObj,
  ComOBJ,ActiveX,ShellAPI,Buttons,StrUtils,Tlhelp32, Graphics, Controls,
  Messages;
 
var
 BitAr:array of array of TColor;
 procedure PotRis;
 
implementation
 
procedure CaptureScreenRect(h:HWND;ARect:TRect;var r:TBitmap);
var
 ScreenDC:HDC;
 a,b,x,y:integer;
begin
  a:=ARect.Right-ARect.Left;
  b:=ARect.Bottom-ARect.Top;
  if (a=0)or(b=0) then Exit;
  r.Width:=a;
  r.Height:=b;
  ScreenDC:=GetDC(h);
  try
   BitBlt(r.Canvas.Handle,0,0,r.Width,r.Height,ScreenDC,0,0,SRCCOPY);
   SetLength(BitAr,r.Width,r.Height);
   x:=0;
   while x<r.Width do begin
    y:=0;
    while y<r.Height do begin
     BitAr[x,y]:=r.Canvas.Pixels[x,y];///????
     y:=y+1;
    end;
    x:=x+1;
   end;
  finally
   ReleaseDC(h,ScreenDC);
  end;
end;
 
procedure ZagrRisW(h:HWND;var r:TBitmap);
var
 ARect:TRect;
begin
 try
  GetWindowRect(h,ARect);
  CaptureScreenRect(h,ARect,r);
 except
 end;
end;
 
procedure PotRis;
var
 r:TBitmap;
begin
 while true do begin
  try
   r:=TBitmap.Create;
   ZagrRisW(GetDesktopWindow,r); 
  finally
   r.Free;
  end;
  sleep(5000);
 end;
 EndThread(0);
end;
 
end.

Unit Main;
.......
procedure ZapPot;
var
 tid,hPot:Cardinal;
begin
  hPot:=BeginThread(nil,0,@PotRis,nil,0,tid);
end;

[min@y™]

ну приведи ты код аккуратно, читать же невозможно!

[planetoxod]

Как вставить правильно код?

[min@y™]

Сообщение от planetoxod

Как вставить правильно код?

вот так

[Аватар]

Где и как там сравниваются битмапы не показано, а приведенный фрагмент утечки вызывать не должен и не вызывает. Параметр r: Bitmap в процедурах зачем var-ом определен?

[planetoxod]

Второй шок. Сейчас будут танцы с бубном. Буду ломать код.