Incredibile! Mi sono appena accorto che il controllo TImage dispone della proprietà Proportional che fa esattamente quello che voglio io. La procedura è pertanto superflua.

Scusate il disturbo.