PNG+Image+GetRValue=Ошибка

[Levsha100]

Здравствуйте!
Загружаю в TImage картинку из файла- все ок , потом пытаюсь узнать красную составляющую цвета с помощью функции GetRValue, но тут вылетает ошибка !
Что делать?
P.S. Delphi 2009;

[JTG]

Видимо ты что-то делаешь неправильно, попробуй другой подход
это вместо "код в студию" )

[Levsha100]

Код в студии)) Теперь надо отгадать слово

var 
  A:Array[1..65,1..17] of boolean;
-----------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute()then
    SourceImage.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
-----------------------------------
procedure imgToArray();
var
i,j:integer;
begin
  for i := 2 to 65-1 do
   for j := 2 to 17-1 do
     if GetRed(Form1.SourceImage.Canvas.Pixels[i,j])<210 then
       A[i,j]:=true
     else
       A[i,j]:=false;
end;

Вот собственно и все.
P.S. Неудевляйтесь тому что цикл с "2" до "числа -1"-так надо))
Короче перегоняю картинку в массив...
Помогите!

[JTG]

А, ну да, не работает Pixels с не-битмапами
(и даже честно об этом сообщает "Exception class EInvalidOperation with message 'Can only modify an image if it contains a bitmap'")

procedure imgToArray();
var
i,j:integer;
b:tbitmap;
begin

  b:=TBitmap.Create;
  b.Assign(form1.sourceImage.Picture.Graphic);
  b.PixelFormat := pf24bit;

  for i := 2 to 65-1 do
   for j := 2 to 17-1 do
     if GetRValue(b.Canvas.Pixels[i,j])<210 then
       A[i,j]:=true
     else
       A[i,j]:=false;

  b.Free;
end;

[Levsha100]

Спасибо! Огромное!!!
+1