procedure TfShipTypeImg.Button1Click(Sender: TObject);
VAR xi, yi:integer;
 I, J: Integer;
 Picture: array of array of TColor;//локальное объявление для примера
begin
 SetLength(Picture, ImageAll.Picture.Height, ImageAll.Picture.Width);
 for I := 0 to High(Picture) - 1 do
   for J := 0 to High(Picture[I]) - 1 do
   try
     Picture[I, J] := ImageAll.Picture.Bitmap.Canvas.Pixels[I, J];
   except
     On E : Exception do   showmessage(E.Message);
   end;
 showmessage('Массив успешно создан!');
end;

Picture[I, J] := ImageAll.Picture.Bitmap.Canvas.Pixels[J, I];