Delphi заготовки

пример функции которая отображает значения цвета в RGB разбивке
позволяет напрямую обращаться к массиву точек Bitmap

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

if not Assigned(form1.image1.Picture.Bitmap) then Exit;

 with form1.Image1.Picture.Bitmap do

  case PixelFormat of
   pfCustom : caption := Format('x: %d y: %d b: %d',[x, y, pByteArray(ScanLine[y])^[x]]);
   pf24bit: caption := Format('x: %d y: %d R: %d,G: %d, B: %d',
   [x,y, pByteArray(ScanLine[y])^[3*x], pByteArray(ScanLine[y])^[ 3*x+1], pByteArray(ScanLine[y])^[ 3*x+2]]);

end;
end;

также обновил

Программу рисования линий как в вконтакте  эффект Alpha наложения 

http://netsoftware.ucoz.ru/news/zadacha_ehffekt_alfa_nalozhenija/2011-07-16-4
теперь программа работает через ScanLine