[NumLock]

Код:

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('clouds.bmp');
  PaintBox1.OnPaint:=PaintBox1Paint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.StretchDraw(PaintBox1.ClientRect, Image1.Picture.Graphic);
end;