TCanvas.Pixels属性就是一个二维数组，它的每个元素代表一个其上的一个像素
的TColor值，如果你不怕慢，就一个一个的读：
procedure TForm1.Button2Click(Sender: TObject);
var
Mybmp:TBitmap;
i,j:integer;
ResArr:array of array of TColor;
begin
Mybmp:=TBitmap.Create;
Mybmp.LoadFromFile('d:/75.bmp');
SetLength(ResArr,Mybmp.Height,Mybmp.Width);
for i:=0 to Mybmp.Height-1 do
for j:=0 to Mybmp.Width-1 do
ResArr[i,j]:=Mybmp.Canvas.Pixels[i,j];
end;
