[Gareth]

черт) разобрался, нагуглил ответ...
проблема была в том, что я заранее создаю 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;

но освобождается единожды.. от этого и утечка..