That's right Lainz, you can use GetPart.
You can also use the Fill method. Instead of writing
var
tile: TBGRABitmap;
begin
tile := background.GetPart(rect(0,0,Width,Height)) as TBGRABitmap;
Bitmap.PutImage(0,0,tile,dmSet);
tile.Free;
end;
You can write
begin
Bitmap.Fill(background);
end;