Dynamic objects

This will place a TImage object on the form and fill it with a picture.

uses ExtCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
  ti: tImage;
begin
  ti := tImage.create(self);
with ti do
begin
  parent := self;
  autosize := true;
  Picture.LoadFromFile('c:\windows\MyBmp.bmp');
  show;
end;
end;

To make it always fit the window, do it this way:

with ti do
begin
  align := alClient;
  stretch := true;
  autosize := true;
end;