Работа с Image

[Claster]

Все доброго времени суток.........есть форма с Borderstyle=bsnone на ней есть Image который закреплен за нижним правым углом, картинка у него загружается при onCreate формы, и Image принимает размеры картинки загружаемой при onCreate. Как сделать так что бы к примеру( картинка 12х12 смотрится нормально в правом нижнем углу, а если загрузить картинку 75х75 она выходит ха границы формы, как сделать что бы увеличение происходило во внутрь формы а не за ее пределы?

[Claster]

о вроде так?

Image.top := Form1.top - Form1.height - Image1.Height;
Image.left := Form1.left - Form1.width - Image1.width;

[Jaguar83]

Нет, не так. При чем тут свойства формы?

procedure TForm1.FormCreate(Sender: TObject);
var oldHeight, oldWidth: Integer;
begin
Image1.AutoSize:=True;
oldHeight:=Image1.Height;
oldWidth:=Image1.Width;
Image1.Picture.LoadFromFile('28487159.jpg');
Image1.Top:=Image1.Top-(Image1.Height-oldHeight);
Image1.Left:=Image1.Left-(Image1.Width-oldWidth);
end;