[NumLock]

см.:

Код:

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

т.е.:

Код:

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