Загрузка и масштабирование имиджа в рамки

[Marsik]

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

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var X,Y:integer;
begin
X:=250;
Y:=250;
if OpenPictureDialog1.Execute then
Begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Stretch:=true;
Image1.Width:=X;//ширина.
Image1.Height:=Y;//высота.
End;
end;

[Marsik]

Я попробовал этот код,он наоборот на полэкрана расширил имидж.А мне надо чтобы рисунок четко в границы имиджа вставлялся!

А нет,я ошибся!Спасибо БОЛЬШОЕ