подсчитать количество цветов в картинке

[DianaKL]

Cоставить программу которая с помощью компонента OpenPictureDialog или OpenFileDialog загружает картинку в компонент Image.
При нажатии на кнопку Button программа считает количество цветов в картинке и выводит результат в компонент Label

Код который загружает картинку в компонент Image:

procedure TForm1.N2Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

[Миша]

Должно работать

procedure TForm1.Button1Click(Sender: TObject);
var
I,R,y,Count:Integer;
a:array of TColor;
B:Boolean;
begin
SetLength(a,1);
a[0]:=Image1.Canvas.Pixels[0,0];
Count:=1;
B:=false;
for I:=0 to Image1.Height-1 do
for R:=0 to Image1.Width-1 do
begin
for y:=0 to Length(a)-1 do if a[y]=Image1.Canvas.Pixels[I,R]then begin B:=true; SetLength(a,Length(a));
a[Length(a)-1]:=Image1.Canvas.Pixels[0,0]; end;
if B then Inc(Count);
B:=false;
end;

Button1.Caption:=IntToStr(Count);
end;