 <p>Delphi installation comes with a Demo named 'Bitmap' (you can find the project in Help dir.).</p> <p>It uses the following method to draw a tiled image:</p> <pre><code>procedure TBmpForm.FormPaint(Sender: TObject); var x, y: Integer; begin y := 0; while y &lt; Height do begin x := 0; while x &lt; Width do begin // Bitmap is a TBitmap. // form's OnCreate looks like this: // Bitmap := TBitmap.Create; // Bitmap.LoadFromFile('bor6.bmp'); // or you can use Canvas.Draw(x, y, Image1.Picture.Bitmap), // instead of Canvas.Draw(x, y, Bitmap); // Canvas.Draw(x, y, Bitmap); //Bitmap is a TBitmap. x := x + Bitmap.Width; // Image1.Picture.Bitmap.Width; end; y := y + Bitmap.Height; // Image1.Picture.Bitmap.Height; end; end; </code></pre> <p>Hope that helps!</p>