Réponse acceptée !
dans cette exemple je prends comme image une copy de l'ecran de 330*77
je parcours cette images et j'affiche les couleurs ds un Tmemo, ca devrait marcher..

procedure parcours;
var
Pxl:TBitmap;
begin
  Pxl:=TBitmap.Create;
  Pxl.Width:=330;
  Pxl.Height:=77;
  BitBlt(pxl.Canvas.Handle,0,0,330,77,GetDC(GetDesktopWindow),0,0,SrcCopy) ;
  for i:=0 to 77 do
    for f:=274 to 330 do
       form1.memo.lines.add(colortostring(Pxl.Canvas.Pixels[f,i]));
  pxl.Free;
end;


exyacc