[0nni]

Ну, если без рамок, то потеряются пропорции, либо придется отсекать часть изображения.
_______________
Можешь взять мой код и заменить

Код:

    dx := ClipCx / BitmapCx;
    dy := ClipCy / BitmapCy;
    //dr := min(dx, dy);
    if dx > dy then dr := dx else dr := dy; //<<< эту строчку
    Rect.Right := Trunc(BitmapCx * dr);
    Rect.Bottom := Trunc(BitmapCY * dr);

Тогда будет обрезать, но вписывать