[Rjkzy]

var
i,j:Cardinal;
piks:array of array of TColor;
begin
SetLength(piks,Self.Width,Self.Height);
for i:=0 to Self.Width-1 do
for j:=0 to Self.Height - 1 do
piks[i,j]:=Self.Canvas.Pixels[i,j];
end;

примерно так записываем значения всех пикселей канвы главной формы в массив

var
i,j:Cardinal;
begin
for i:=0 to Self.Width-1 do
for j:=0 to Self.Height - 1 do
Self.Canvas.Pixels[i,j]:=piks[i,j];

а так их считываем обратно.
единственное, массив должен быть глобальным объявлен