[Decoding]

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  bm1, bm2: TBitmap;
begin
   bm1 := TBitmap.Create;
   bm1.LoadFromFile( 'c:\WINDOWS\Пузыри.bmp' );
   bm2 := TBitmap.Create;
   bm2.Width := ClientWidth;
   bm2.Height := ClientHeight;
   bm2.Canvas.Brush.Bitmap := bm1;
   bm2.Canvas.FillRect( bm2.Canvas.ClipRect );
   PaintBox1.Canvas.Draw( 0, 0, bm2 );
   bm2.Free;
   bm1.Free;
end;