[kolli]

Здравствуйте.Я начинающий.Хочу смастерить програмку перевода кортинки (bmp)в монохромное изображение(белое в черное,а остальное все в белое).Блин,ну нифига неполучается.
Вот нашел кусок програмного исходника.
for Y := 0 to Height-1 do
for X := 0 to Width-1 do begin
Color := Pixel[X,Y];
Color := (Red(Color)+Green(Color)+Blue(Color)) div 3;
if Color > 100 then Pixel[X,Y] := White
else Pixel[X,Y] := Black;
end;

А как его использовать?
создаю

procedure TForm1.Button1Click(Sender: TObject);
//записываю
var
x,y:integer:
begin
for X := 0 to Width-1 do begin
Color := Pixel[X,Y];
Color := (Red(Color)+Green(Color)+Blue(Color)) div 3;
if Color > 100 then Pixel[X,Y] := White
else Pixel[X,Y] := Black;

end;

end.
И это произведение исскуство выдает ошибку!!!
Если вам не лень,немогли б вы мне исправить ошибки и пояснить построчно исходник.Что б я мог посидеть и поразбираться сам исходя из вашей помощи.

[Decoding]

Примерно так bmp.zip