Como retornar a altura de uma imagem carregada no TBitmap do Delphi usando a propriedade Height

// 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 altura do bitmap
  ShowMessage('A altura da imagem é: ' + IntToStr(bmp.Height) +
    ' pixels.');

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