Odczytywanie współrzędnych pikseli z TImage??

Potrzebuję znaleźć na obrazku wszystkie czarne piksele i zapisać ich współrzędne... Nie mam pojęcia jak to zrobić (obrazek może być z pliku bmp lub timage). Proooszę o pomoc :)

for i := 0 to Szerokosc-1 do
 for j := 0 to Wysokosc-1 do
  if ______.Canvas.Pixels[i, j] = clBlack then DalejKombinuj();

Dzięki :)

Polecam metodą scanline, albo jeszcze szybciej GetBitmapBits, bo kozystajac z Pixels bedzie to trwac wieki.