Для отображения мозайки можно использовать стандартный Timage, для поддержки различных форматов иди на torry.net там много есть чего интересного
Соответственно код для отображения мозайки :
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
img:array[0..10] of TImage;
begin
x:=0;
y:=0;
for i:=0 to 10 do
begin
///////////////////////////////////////////////////////////
img[i]:=Timage.Create(self);
img[i].parent:=Form1;
img[i].picture.loadfromfile('c:\temp.bmp');
img[i].visible:=true;
img[i].left:=x;
img[i].top:=y;
img[i].Stretch :=true;
img[i].Width:=200 ;
img[i].Height:=150;
///////////////////////////////////////////////////////////
inc(x,img[i].Width+8);
if x>form1.Width-img[i].Width then
begin x:=0;
inc(y,img[i].Height +8);
end;
Application.ProcessMessages
end;
end;