[Alloc]

Приветы!

Многоуважаемые форумчане, помогите разобраться.. Собственно Сабж.

Вот кусочек кода что бы лучше понять о чем я:

Код:

Type
  TRGBTripleArray = ARRAY[Word] of TRGBTriple;
  pRGBTripleArray = ^TRGBTripleArray;
var
  h1: HWND;
  DC: HDC;
  bmp: TBitmap;
  Point: TPoint;
  x, y: Integer;
  PicArray: pRGBTripleArray;
begin
  Point.X:= 322;
  Point.Y:= 514;
  Windows.ClientToScreen(h1,Point);

  bmp := TBitmap.Create;
  bmp.PixelFormat := pf32bit;
  bmp.Width := 346; bmp.Height := 40;
try
    BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, Point.X, Point.Y, SRCCOPY);

    for x := 0 to bmp.Width - 1 do
    begin
      PicArray := bmp.ScanLine[x];
      ...
      ...
    end;
  finally
    bmp.Free;
    ReleaseDC(h1, dc);
  end;
end;

Вообщем необходимо пробежаться не по всему изображению а только по X, вдоль него, при этом координата Y уже установлена и не должна меняться. Проще говоря, на определенной высоте пройтись вдоль всего изображения. Как это сделать? Да, и будьте добры, подскажите как правильно использовать ScanLine в данном случае. Заранее спасибо.