Como retornar a largura de uma imagem carregada no TBitmap do Delphi usando a propriedade Width

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// não se esqueça de adicionar 'JPEG' no uses
procedure TForm4.Button1Click(Sender: TObject);
var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  // vamos criar um novo objeto TJpegImage
  jpg := TJpegImage.Create;

  // agora vamos carregar a imagem JPG desejada
  jpg.LoadFromFile('C:\estudos_java\lago.jpg');

  // agora criamos o bitmap
  bmp := TBitmap.Create;
  // e atribuimos o JPG ao Bitmap
  bmp.Assign(jpg);

  // finalmente desenhamos o bitmap no form
  Form4.Canvas.Draw(0, 0, bmp);

  // vamos mostrar a largura do bitmap
  ShowMessage('A largura da imagem é: ' + IntToStr(bmp.Width) +
    ' pixels.');

  // e limpamos o JPG e o Bitmap
  bmp.free;
  jpg.free;
end;