Добрый день, вот я наконец добился от своей програмки положенного, она сканирует диапазон пикселей на наличие цвета, подсчитывает колличество найденных.
Работает ужасно медленно, когда сканируется участок 100x100pix прихоидтся ждать довольно долго.
Возможно как то ускорить этот процесс?
Правила читал, знаний мне пока хватает на то что бы собрать приложения из рзных кусков. 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;


    procedure Button1Click(Sender: TObject);
    function GetCol(Bitmap: TBitmap; x,y: integer):Longint;
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
P: TPoint;
  Form1: TForm1;
  B: TBitmap;
implementation

uses Unit2;

{$R *.dfm}
function TForm1.GetCol(Bitmap: TBitmap; x,y: integer):Longint;
var
  BMP: TBitmap;
  P: Pointer;

begin
  BMP:=TBitmap.Create;
  BMP.Assign(Bitmap);
  BMP.HandleType:=bmDDB;
  BMP.PixelFormat:=pf32bit;
  P:=BMP.ScanLine[y];
  Inc(PByte(P),SizeOf(Longint)*x);
  Result:=PLongint(P)^;
  BMP.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC; I:integer;
  begin
B := TBitmap.Create;
B.Width  := Screen.Width;
B.Height := Screen.Height;
DC := GetDC( 0 );
try
//for I:=0 to 100
  // -
  Windows.BitBlt(B.Canvas.Handle, 0, 0, B.Width, B.Height, DC, 0, 0, SRCCOPY);
  B.SaveToFile('c:\screen.bmp');
  Edit1.Text:=IntToStr(GetCol(B,200,200)) ;
finally
// ReleaseDC( 0, DC );
//  B.Free();
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var Y,X,I,I1:integer;
S:String;
begin
I:=0; // счетчик
S:='1';
Y:=0;
X:=0;
for X:=300 to 310-2 do

begin
for Y:=300 to 310 -1 do
begin

  if GetCol(B,X+1,Y+1)=4853774 then
  I:=I+1;

end;

end;
showMessage(IntToStr(i));
end;

end.