OK, dann hatte ich deine Frage falsch verstanden.
Dafür gibt es leider keine direkt verfügbare Funktionalität. Du kannst aber über entweder über einen Hack oder einen Class Helper and die Funktion DestRect herankommen, die dir das gewünschte Rechteck liefert.
Delphi-Quellcode:
type
TImageHelper = class helper for TImage
function EffectiveRect: TRect;
end;
function TImageHelper.EffectiveRect: TRect;
begin
result := DestRect;
end;