[NumLock]

Код:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  ABitmap: TBitmap;
begin
  ABitmap:=TBitmap.Create;
  try
    ABitmap.LoadFromFile('d:\Картинки\Разное\apple.bmp');
    BitBlt(Image1.Canvas.Handle,
      0, 0, ABitmap.Width, ABitmap.Height,
      ABitmap.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    ABitmap.Free;
  end;
end;