[Alegun]

Открыв новый проект бросьте на форму кнопку и задайте имя нужного рисунка

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Line: pByteArray;
 i, j: integer;
 s   : string;
 sl  : TStrings;
 bmp : TBitmap;
begin
 sl := TStringList.Create;
 bmp:= TBitmap.Create;
 bmp.LoadFromFile('Some.bmp');

 for i := 0 to bmp.Height - 1 do
  begin
   s:= '';
   j:= 0;
   Line:= bmp.ScanLine[i];
   while  j <= bmp.Width * 3  do
    begin
     s:= s +
      'R:'  + IntToStr(Line[j])   +
     ' G:'  + IntToStr(Line[j+1]) +
     ' B:'  +IntToStr(Line[j+2])  + '; ';
     inc(j, 3);
    end;
   sl.Add(s);
   end;
 sl.SaveToFile('Some.txt');
 sl.Free;
 bmp.Free;
end;

это сохранит "матрицу изображения" в текстовом формате