[Decoding]

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bm: TBitmap;
  p: PPoint;
  l: TList;
  i, j: integer;
begin
   bm := TBitmap.Create;
   bm.LoadFromFile( 'c:\windows\пузыри.bmp' );

   l := TList.Create;
   for i := 0 to bm.Width do
      for j := 0 to bm.Height do
      begin
         New( p );
         p^.X := i;
         p^.Y := j;
         l.Add( p );
      end;

   Randomize;
   while l.Count > 0 do
   begin
      i := Random( l.Count );
      p := l[i];
      Form1.Canvas.Pixels[p^.X,p^.Y] := bm.Canvas.Pixels[p^.X,p^.Y];
      l.Delete( i );
      Application.ProcessMessages;
      Sleep( 1 );
      Caption := IntToStr( l.Count );
   end;

   l.Free;
   bm.FreeImage;
end;