черт) разобрался, нагуглил ответ...
проблема была в том, что я заранее создаю
Bild: tbitmap.create;
Но при использовании функции он создается второй раз:
Код:
function CaptureScreenRect(aRect: TRect): TBitMap;
var
ScreenDC: HDC;
begin
Result := TBitMap.Create; //<---------- тут)
Result.Width := aRect.Right - aRect.Left;
Result.Height := aRect.Bottom - aRect.Top;
ScreenDC := GetDC(0);
try
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, aRect.Left, aRect.Top, SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
end;
но освобождается единожды.. от этого и утечка..