Разобрать изображение по цветам.

[AdOS]

Добрый день.

Помогите, пожалуйста.

Суть дела вот в чем: есть рисунок (image), который состоит из 2х цветов: зеленый и белый. Я на image, поверх рисунка, черчу сетку. Теперь мне надо закрасить все те квадраты, в которых есть белый цвет (а еще лучше, если только те, в которых белого цвета больше, чем половина).

Пытаюсь так сделать:


код Pascal/Delphi

procedure TForm1.Button5Click(Sender: TObject);
  var ostx,osty:real;    bo:integer; colp: TColor;
begin
x:=(z div 2); //, где z - сторона квадрата
y:=(z div 2);
For x:=0 to Form1.Image1.Width do
  For y:=0 to Form1.Image1.Height do
//while x<form1.Image1.Height do
  // While y<Form1.Image1.Width do
  begin
  colp:=Form1.Image1.Canvas.Pixels[x,y];
  edit12.Color:=colp;
      if pix=16777215 then //заранее искала цвет пикселя, но только под мышью который. а какой сюда засунуть - не знаю.
      Begin
      Form1.Image1.Canvas.Brush.Color:=clBlue;
      risuem;
      str:='Нет'; //это дело с координатами я еще в БД сую.
Form2.Table1.Insert;
Form2.Table1.Fields[0].Value:=Str;
Form2.Table1.Fields[1].Value:=Edit5.Text;
Form2.Table1.Fields[2].Value:=Edit6.Text;
Form2.Table1.Fields[3].Value:=edit7.Text;
Form2.Table1.Fields[4].Value:=Edit8.Text;
Form2.Table1.Post;
      Form1.Edit5.Text:=inttostr(x);
      Form1.Edit6.Text:=inttostr(y);
      Form1.Edit7.Text:=inttostr(x+z);
      Form1.Edit8.Text:=inttostr(y+z);
end; 
end;
//x:=x+z; y:=y+z;
end;