// Der Hintergrund einer Form wird mit einem Bild ausgefüllt.
// Ist das Bild kleiner als die Form, wird es gekachelt.
// Siehe dazu auch ein Fenster ohne Hintergrund erzeugen

// Getestet mit D4 unter Win98

var bitmap:TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
bitmap:=TBitmap.create;
bitmap.loadfromfile('D:\bilder\corel008.bmp');
form1.brush.bitmap:=bitmap;
bitmap.dormant;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bitmap.free;
end;

// Falls man aber kein Bild, sondern nur ein Muster haben will,
// sieht das so aus:

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.brush.style:=bsDiagCross; // o.ä.
end;